Области видимости - часть 3

AFirstCbj := TFirstObj.Create; | Methodl; {недопустимо -

AFirstObj.Methodl;(допустимо)|

|произойдет ошибка компиляции}

AFirstObj.Method2; {допустимо}| Method2; {допустимо}

AFirstObj.MethodS; {допустимо}| Methods,- {допустимо}

AFirstObj.Free; | end;

end;

| procedure TestProc2;

procedure TFirstObj.Methodl; | begin

begin |AFirstObj:=TFirstObj.Create;

ShowMessage('1'); |AFirstObj.Methodl;{недопустимо}

end; |AFirstObj.Method2;{недопустимо}

procedure TFirstObj.Method2;

|AFirstObj.Method3;{допустимо}

begin |AFirstObj.Free;

ShowMessage('2');

Methodl; |ASecondCbj:= TSecondObj.Create;

end; |ASecondObj.Methodl;{недопустимо}

procedureTFirstObj.Method3;

|ASecondObj.Method2;{допустимо}

begin |ASecondObj.MethodS;{допустимо}

ShowMessage('3'); |ASecondObj.Free;