Einzelnen Beitrag anzeigen

worker
(Gast)

n/a Beiträge
 
#1

IsPublishedProp liefert für Published-Property False - wieso

  Alt 20. Jan 2009, 14:05
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.
  Mit Zitat antworten Zitat