Как из процедуры обратится к классу?
CrowD © (2002-10-24 17:34:00)
Привет, 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:00) [1]
Вообще-то self, но в методах класса это подразумевается
автоматически и просто
i:=x;
Наверх 
ЧАТ |
Орешник |
|
