Probleme mit GetProbInfo

[peanut]

Hallo,

ich möchte aus einem Objekt mittels GetProbInfo Properties einer Klasse auslesen. Leider bekomme ich beim Aufruf von GetPropInfo immer NIL zurück. Habe schon viele Varianten durchprobiert, klappt alles nicht, selbst wenn ich so "überschaubare" Klassen wie z.B. TStrings zum Testen verwenden...

Was mach ich falsch???

Delphi-Quellcode:

uses
  SysUtils, MMsystem, TypInfo, Classes;

var
  pInfo: PPropInfo;
  sl   : TStrings;
begin
  sl := TStrings.Create;
  pInfo := GetPropInfo(sl, 'Count');
  if (pInfo <> nil) then
  begin
    writeln(pInfo.Name);
  end;
  sl.Free;
end.

Viele Grüße

peanut.

[SirThornberry]

du weißt aber schon das TStrings eine Basisklasse mit größtenteils abstrakten Methoden ist und auch Typinformationen sollten nicht drin sein.

[peanut]

Hallo,

ok, das erklärt das Phänomen bei TStrings... :) Hat aber auch in meiner eigenen Klasse nie funktioniert. Hab jetzt aber rausbekommen, woran es lag. Man muss TPersitent und nicht TObjekt bei der Definition der Klasse benutzen. Zumindest funktioniert's jetzt, wenn ich's so mache...

[Gruber_Hans_12345]

da mußt nicht unbedingt von TPersistent ableiten um die Typinfo in deiner klasse zu haben, einfach vor (der ersten) definition der klasse ein {$M+} machen, dann werden folgende klassen mit typinfo compiliert.