Имеется код:
Код: Выделить всё
Type
{ TForm1 }
TForm1 = class(TForm)
// Чего-то там
Button2 : TButton;
Procedure MyProc(s : Stream);
Private
{ Private Declarations }
Public
SrcStream : TStream; // Файловый поток для анализируемого файла
end;
Var
Form1 : TForm1;
Implementation
{$R *.lfm}
{ TForm1 }
// Ещё чего-то там
Procedure TForm1.MyProc(AStream : TStream);
begin
// Код...
end;
Procedure TForm1.Button2Clic(Sender : TObject);
begin
// код...
TForm1.MyProc(Form1.SrcStream); // вот тут аж две ошибки компиляции
// Error: Only class methods, class properties and class variables can be accessed in class methods
// Error: Only class methods, class properties and class variables can be referred whith class references
// код...
Не подскажите ли как правильно передавать поток в процедуру/функцию?
