| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TObject.FieldAddress [D6]

Ученик ©   (2002-08-21 11:32:00) 

Что-то не пойму, что туда нужно передать чтобы nil не возвращался, может кто подскажет ?

---

Ученик   (2002-08-21 14:19:00) [1]

>Игорь Шевченко © (21.08.02 13:51)
>Игорь Шевченко © (21.08.02 14:00)
Спасибо, накладочка вышла, нужны имена полей, а передавал имена свойств :)

---

Игорь Шевченко   (2002-08-21 14:16:00) [2]

Еще пример:
unit main;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

type
TMyClass = class
published
Field1 : TComponent;
public
constructor Create;
destructor Destroy; override;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
tmp : ShortString;
MyClass : TMyClass;
begin
tmp := "Label1";
Label1.Caption := Format("%.8x", [Integer(FieldAddress(tmp))]);
MyClass := TMyClass.Create();
MyClass.Free();
end;

{ TMyClass }

constructor TMyClass.Create;
begin
if FieldAddress("Field1") <> nil then begin
Field1 := TComponent.Create(nil);
ShowMessage("Gotcha!");
end;
end;

destructor TMyClass.Destroy;
begin
inherited;
Field1.Free();
end;

end.


При создании формы выдается сообщение Gotcha!

---

Игорь Шевченко   (2002-08-21 14:00:00) [3]

Еще пример:
unit main;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
tmp : ShortString;
begin
tmp := "Label1";
Label1.Caption := Format("%.8x", [Integer(FieldAddress(tmp))]);
end;


Все дело в том, что в таблице Fields в VMT (vmtFieldTable) не содержатся унаследованные свойства. Для наследников формы туда попадают все компоненты, положенные на форму в design-time, к примеру.

---

Игорь Шевченко   (2002-08-21 13:51:00) [4]

Classes.pas

procedure TComponent.SetReference(Enable: Boolean);
var
Field: ^TComponent;
begin
if FOwner <> nil then
begin
Field := FOwner.FieldAddress(FName);
if Field <> nil then
if Enable then Field^ := Self else Field^ := nil;
end;
end;



---

Ученик   (2002-08-21 12:07:00) [5]

>Anatoly Podgoretsky © (21.08.02 11:43)
У меня вопрос: как пользоваться этой функцией, если можно код.

---

Anatoly Podgoretsky   (2002-08-21 11:43:00) [6]

Еще раз имя свойстваи как ты думаешь мы будем гадать как ты передавал и главное что, ты должен привести проблематичный коди и обязательно описание свойства. Ну и хотя кратко сказать а на хрен тебе это нужно. Иначе получится разговор глухого с немым

---

Ученик   (2002-08-21 11:41:00) [7]

>Anatoly Podgoretsky © (21.08.02 11:36)
Передавал Name, Caption, Cancel у TButton, возвращает nil

---

Anatoly Podgoretsky   (2002-08-21 11:36:00) [8]

Туда надо передавать имя свойства опубликованного поля, обрати внимание на примечание: Programs should access and manipulate fields by using properties instead of FieldAddress.

---

Наверх