Hallo,
ich möchte per Variable ein Property eines Objects auslesen:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, typinfo, stdctrls;
type
TForm1 =
class(TForm)
procedure FormDblClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
TTest =
class(TObject)
private
test1 :
String;
test2 : integer;
published
property gettest1 :
string read test1
write test1;
end;
var
Form1: TForm1;
t1, t2 : TTest;
implementation
{$R *.dfm}
procedure TForm1.FormDblClick(Sender: TObject);
begin
t1 := TTest.Create;
t1.test1 := '
hallo';
t1.test2 := 1;
t2 := TTest.Create;
t2.test1 := '
hallo2';
t2.test2 := 2;
showmessage(GetPropValue(t1,'
gettest1'));
end;
end.
Aber beim Ausführen bekomme ich stets "Eigenschaft gettest1 existiert nicht.".
Wie müsste denn die Funktion richtig lauten?
Vielen Dank schon mal
Christian