RTTI - Rad 2007

[Highttower]

Hallo zusammen,

gibt es eine Möglichkeit, public-Properties (nicht PUBLISHED) mit Hilfe einer wie auch immer gearteten RTTI auszulesen? Mit Rad 2010 ist das ja nicht das große Problem... allerdings bin ich grade mit dem Rad Studio 2007 beschäftigt. Hier gibt es einen Unit Typinfo, diese ermöglicht es mir auf published Properties zu zu greifen. Weder

Typinfo public

noch

Typinfo public

haben bisher zufrieden stellende Ansätze zu Tage gefördert.

Ein reines durchsuchen nach RTTI hilft mir auch nicht viel ... ihr glaubt gar nicht wieviel startTime(s) es gibt .

Bin langsam echt verzweifelt ... falls das nicht geht, gibt es eine schickere Möglichkeit public in published zu wandeln? Vllt per Compilerschalter oder so?

Vielen Dank,

Tobi

[Alter Mann]

Hallo

suche mal nach FindPropInfo.

[Highttower]

Hallo,

das klappt nicht zum einen konnt ich erst nicht drauf zu greifen, daher musste ich mir die in die Unit kopieren ....

Zum anderen findet auch diese Methode nur Published-Eigenschaften. Hier mal mein Code zum austesten:

Delphi-Quellcode:

  type

  TForm4 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    FValue : Integer;
    { Private-Deklarationen }
    procedure Foo(AObject : TObject);


  public

    property Scaleunit: Integer read FValue write FValue ;
    { Public-Deklarationen }
  end;

Delphi-Quellcode:

function FindPropInfo(Instance: TObject; const PropName: string): PPropInfo;
begin
  Result := GetPropInfo(Instance, PropName);
  if Result = nil then
    raise Exception.Create('Prop konnte nicht gefunden werden: '+PropName);
end;

procedure TForm4.Foo(AObject: TObject);
begin
  ShowMessage(  AObject.ClassName);
  ShowMessage(IntToStr( GetOrdProp(GetObjectProp(AObject,'Font'), 'Size')));
 // ReadProp(AObject, 'Value');
  if FindPropInfo(AObject, 'Value') = nil then
    ShowMessage('funzt');
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
    FValue := 23;
    Foo(Self);
end;

Noch mal vielen Dank,

Tobi

[himitsu]

RTTI ... das ist doch der Unterschied zwischen Public und Published

Zitat von Highttower:

das klappt nicht zum einen konnt ich erst nicht drauf zu greifen, daher musste ich mir die in die Unit kopieren ....

Ich dachte man fügt, in soeinem Fall, einen passenden Suchpfad hinzu?

[Highttower]

Zitat von himitsu:

RTTI ... das ist doch der Unterschied zwischen Public und Published

grml, ja ... stimmt mist das hab ich heute morgen auch irgendwo gelesen... ich glaub es ging darum wie der Objektinspektor funktioniert ... gibt es den irgendein Möglichkeit das zu verschieben ... naja ich glaub nicht dran...

Vielen dank nochmal,

wenn noch jemand was weiß, würd mich freun wenn ich nach meinem Urlaub in 2 Wochen hier noch was finden würde .

Viele Grüße,

Tobi

[himitsu]

Was willst du eigentlich damit erreichen?

PS: eventuell hilft ja auch schon {$M+} , bzw. {$TYPEINFO ON}

[Daniel]

Zitat von Highttower:

Ein reines durchsuchen nach RTTI hilft mir auch nicht viel ... ihr glaubt gar nicht wieviel startTime(s) es gibt .

Suchen Sie doch mal nach "RTTI" (mit Anführungszeichen).
Die Suchtags machen das derzeit leider nicht mit, aber die URL funktioniert: http://www.delphipraxis.net/dp_searc...ch_matchmode=0

[Highttower]

Zitat von himitsu:

Was willst du eigentlich damit erreichen?

Ich will bestimmte Eigenschaften, verschiedener Klassen auf CSS Befehle(Eigenschaften) mappen. In D2010 geht das wunderbar, nur in D2007 halt nicht ... und es wäre schön wenn das irgendwie geht, im Notfall muss ich halt doch typisiert jede Klasse abklappern .

Naja in 10 Stunden geht der Flieger und ich bin erst mal weg. Vielleicht komm ich ja nach dem Urlaub auf die zündene Idee.

Aber ich hab mich schon drauf ein gerichtet das ich erst mal ein paar Tage mit if AObj is TClass then begin ... beschäftigen darf.

Vielen dank und viele Grüße,

Tobi