Как из процедуры обратится к классу?

← →
CrowD © (2002-10-24 17:34) [0]

Привет, All!
как обратится к классу из функций и процедур этого класса, пример
(~~~~
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type c_Class1 = class
x,y : integer;
procedure Proc;
end;

TForm1 = class(TForm)
Button1: TButton;
private
{ Private declarations }
public
Class1 : c_Class1;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure c_Class1.Proc;
var
i : integer;
begin
i := Class1.x;
...
end;

end.
~~~~)
как обратится к объекту Class1?

Спасибо.

← →
MBo © (2002-10-24 17:43) [1]

Вообще-то self, но в методах класса это подразумевается автоматически и просто
i:=x;

Как из процедуры обратится к классу? Найти похожие ветки