Как получить указатель на экземпляр класса из егоже метода [D7, WinXP]
Andrik © (2006-07-21 14:21:00)
Вобщем описываю класс наследником от TObject, при работе он
должен в одном своем методе делать запись своего указателя в
отдельно созданый массив.. нифига не получается.
self не работает.
например :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type TVasya = class
procedure createobject;
end;
var
Form1: TForm1; p1,p: pointer;
Vasya: TVasya ;
implementation
{$R *.dfm}
procedure TVasya.createobject;
begin
p1:=self;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Vasya:=TVasya.Create;
p:=@Vasya;
Vasya.createobject;
if p<>p1 then ShowMessage('не получается мля');
end;
end.
Vlad (2006-07-21 14:34:00) [1]
> p:=@Vasya;
p:=Vasya;
Наверх 
ЧАТ |
Орешник |
|
