Hallo,
ich habe eine Property, welche ich 'published' gesetzt habe.
Frage ich diese Property nun auf 'published' ab, so erhalte ich False - ich verstehe nicht warum, und hoffe, dass mir jemand von Euch helfen kann.
Delphi-Quellcode:
Unit Unit2;
Interface
Uses
Windows,
Messages,
SysUtils,
Variants,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
TypInfo;
Type
TTestClass =
Class
private
FTest: Integer;
Procedure SetTest(
Const Value: Integer);
published
Property Test: Integer
read FTest
write SetTest;
End;
TForm2 =
Class(TForm)
Procedure FormCreate(Sender: TObject);
private
Testklasse: TTestClass;
End;
Var
Form2: TForm2;
Implementation
{$R *.dfm}
{ TTestClass }
Procedure TTestClass.SetTest(
Const Value: Integer);
Begin
FTest := Value;
End;
Procedure TForm2.FormCreate(Sender: TObject);
Begin
Testklasse := TTestClass.Create;
If IsPublishedProp(Testklasse, '
Test')
Then
SetPropValue(Testklasse, '
Test', 5);
ShowMessage(IntToStr(Testklasse.Test));
End;
End.