freepascal.ru

Код: Выделить всё

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

  // код...

Код: Выделить всё

MyProc(SrcStream);

Код: Выделить всё

 TForm1 = class(TForm)
   ...
  class Procedure MyProc(s : Stream);
  ...
  end;