RTTI Enum von Propertys?

[Mavarik]

Hallo Zusammen!

Nochmal zum Thema Rtti.

Gibt es eine Möglichkeit für eine Funktion

Delphi-Quellcode:

function GetAllPropertyNames(C : TClass):TList<String>;
var 
   i : integer;
begin
  Result := TList<String>.Create;
  for i:=0 to C.Propertys.count-1 do
    Result.Add(C.Propertys[i].ProperyName);
end;

Grüsse Mavarik

[DeddyH]

Hiermit vielleicht? http://docwiki.embarcadero.com/Libra....GetProperties

[edit] Hihi, Schnapsrunde fällig (2222 Beiträge) [/edit]

[Mavarik]

Zitat von DeddyH:

Hiermit vielleicht? http://docwiki.embarcadero.com/Libra....GetProperties

[edit] Hihi, Schnapsrunde fällig (2222 Beiträge) [/edit]

WOW... 2223 Danke... Die Runde geht auf mich..

Ups so einfach... GetProperties...

Zitat von docwiki:

funktioniert es nur in Typen beschreibenden RTTI-Objekte, die Eigenschaften wie z.B. records, classes und interfaces eigentlich zulassen; für alle anderen Typen gibt diese Methode einfach ein leeres Array zurück

Bedeutet was?

Mavarik

[Der schöne Günther]

Die englische Version ist verständlicher:

Zitat:

Although GetProperties is declared in TRttiType, it only works in RTTI objects describing types that actually allow properties, such as records, classes, and interfaces; for all other types, this method simply returns an empty array.

Soll heißen:

• Es können eh nur Interfaces, Records und Klassen Properties haben
• Wenn du einen Typ reinsteckst der sowieso keine Properties haben kann (z.B. einen String) dann bekommst du ein leeres Array zurück

Ich meine, was hätte sonst passieren können. Vielleicht hätte die Methode ja auch eine Exception werfen können wenn man was reinsteckt wo im Vorhinein klar ist dass es keine Properties haben kann.

[himitsu]

Da fühlen sich die armen Class/Record-Helpher aber voll verarscht.


Ich hab vorhin einen Text mit der Nummer 17777 im Programm angelegt und keiner wollte feiern. (hatte aber auch erst bei 17000 angefangen)

[Der schöne Günther]

Guter Einwand.

Delphi-Quellcode:

program Project16;

{$APPTYPE CONSOLE}

{$R *.res}

uses System.SysUtils, System.Rtti;

type
   TObjectHelper = class helper for TObject
      protected
         function getValue(): Integer;
      public property
         Value: Integer read getValue;
   end;


{ TObjectHelper }

function TObjectHelper.getValue(): Integer;
begin
   Result := 42;
end;

procedure justRttiThings();
var
   context: TRttiContext;
   rttiType: TRttiType;
   properties: TArray<TRttiProperty>;
   propertyIterator: TRttiProperty;
begin
   context := TRttiContext.Create();
   properties := context.GetType( TypeInfo(TObjectHelper)).GetProperties();

   for propertyIterator in properties do
      WriteLn(propertyIterator.Name);
end;

begin
  try
   justRttiThings();
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  readln;
end.

ergibt

Code:

Value
RefCount

Welche Magie steckt hier dahinter?