Области видимости - часть 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;