[Delphi] GetPropInfo geeft me nil

[jelmervos]

Ik heb de volgende klasse:

code:

type
  TTest = class(TObject)
  private
    FGetal: Integer;
  published
    property Getal: Integer read FGetal;
  public
    constructor Create;
  end;

{ TTest }

constructor TTest.Create;
begin
  inherited;
  FGetal := 10;
end;

Vervolgens doe ik:

code:

var
  Test: TTest;
  PropInfo: PPropInfo;
begin
  Test := TTest.Create;
  PropInfo := GetPropInfo(Test, 'Getal');
  if Assigned(PropInfo) then
    ShowMessage('Werkt');

Maar krijg de ShowMessage nooit te zien. Wat doe ik verkeerd?

[Just_a_Gamer]

Volgens mij definieer jij hier PPropInfo een Pointer naar TPropInfo

Gebruik eens ipv PPropinfo ==> TPropinfo

[edit]
Maar volgens mij gaat het niet werken zoals jij het wil hebben.

[ Voor 35% gewijzigd door Just_a_Gamer op 10-12-2003 21:14 ]

[martijn_brinkers]

Komt omdat published niet voldoende is. Je moet ook RTTI info laten genereren. Maak er dus van:

Delphi:

 {$M+}
 TTest = class(TObject)
  private
    FGetal: Integer;
  published
    property Getal: Integer read FGetal;
  public
    constructor Create;
  end;
 {$M-}

PS. of inherit van TPersistent want die zorgt nl voor de {$M+} en {$M-} (zie classes.pas)

[ Voor 14% gewijzigd door martijn_brinkers op 10-12-2003 21:28 ]

[jelmervos]

Yes, dat was hem! Bedankt!

[Just_a_Gamer]

Leuk, ik heb weer iets bijgeleerd