Moin zusammen,

ich komm einfach nich drauf was ich falsch mache.

Hintergrund: ich habe ein Array of Record, dieses möchte ich gern in einer procedure durchlaufen also

myRec[0].eigenschaft1
myRec[0].eigenschaft2
...

Nun bin ich durch längere Suche auf die generischen Tlist gestoßen.

Allerdings bekomm ich einen Compilerfehler :/

zusammenfalten · markieren

Delphi-Quellcode:

uses Classes;
...
type
  TZuordnung = record
  Zuorndungsname :string;
  trennzeichen :string;
  Zuordnungsdatei :string;
  distributor :string;
  ...
end;
type Tar_Zuordnung = array of Tzuordnung;
type TlstZuordnung = Tlist<TZuordnung>; //compiler wirft Fehler raus: "undeklarierter Bezeichner 'Tlist' '1' in Zeile..."

end;

Was mach ich also falsch ?!

verwende Delphi2010

VIELEN dank hab ich bei der suche nirgens gefunden =)

Zitat von H3llsing:

markieren

Delphi-Quellcode:

uses Classes;
...

Was mach ich also falsch ?!

verwende Delphi2010

Das hier:

markieren

Delphi-Quellcode:

uses
Generics.Collections, Generics.Defaults;

Wenn du eh schon ein array hast, warum das nicht an die Prozedur übergeben?

ich frage mich grade ob das überhaupt möglich ist mit der Tlist was ich vorhabe.

Zitat:

Hintergrund: ich habe ein Array of Record, dieses möchte ich gern in einer procedure durchlaufen also

myRec[0].eigenschaft1
myRec[0].eigenschaft2

kann ich mir alle eigenschaften von myRec[0] anzeigen lassen ?

sowas in der art:

markieren

Delphi-Quellcode:

//PSEUDO-Code
for i:=0 to myRec[0].countPropertys -1 do
property := Myrec[0][i]; // gibt eigenschaft 1 dann 2 dann 3 etc aus

ist das mit dem Array oder mit der Tlist erreichbar ?

Ja, mit RTTI:

zusammenfalten · markieren

Delphi-Quellcode:

uses
  Rtti, TypInfo;

procedure PrintStuff(const Item: TMyRecord);
var
  ctx: TRttiContext;
  t: TRttiType;
  f: TRttiField;
  p: TRttiProperty;
begin
  t := ctx.GetType(TypeInfo(TMyRecord));
  if Assigned(t) then
  begin
    for f in t.GetFields do
    begin
      if f.Visibility in [mvPublic..mvPublished] then
        Writeln(f.Name + ' = ' + f.GetValue(@Item).ToString);
    end;

    for p in t.GetProperties do
    begin
      if p.Visibility in [mvPublic..mvPublished] then
        Writeln(p.Name + ' = ' + p.GetValue(@Item).ToString);
    end;
  end;
end;

Vielen Dank @Stevie

Genau sowas habe ich Gesucht!
Funktioniert einwandfrei =)

Ein Problem hab ich nun noch mit der klasse.
Wie bekomme ich denn so wie beim Array mit RTTI alle Feldnamen?
Also bei meiner Klasse die ganzen Properties?

Zitat von Stevie:

Ja, mit RTTI:

zusammenfalten · markieren

Delphi-Quellcode:

uses
  Rtti, TypInfo;

procedure PrintStuff(const Item: TMyRecord);
var
  ctx: TRttiContext;
  t: TRttiType;
  f: TRttiField;
  p: TRttiProperty;
begin
  t := ctx.GetType(TypeInfo(TMyRecord));
  if Assigned(t) then
  begin
    for f in t.GetFields do
    begin
      if f.Visibility in [mvPublic..mvPublished] then
        Writeln(f.Name + ' = ' + f.GetValue(@Item).ToString);
    end;

    for p in t.GetProperties do
    begin
      if p.Visibility in [mvPublic..mvPublished] then
        Writeln(p.Name + ' = ' + p.GetValue(@Item).ToString);
    end;
  end;
end;

Also welchen Pointer gibt man bei p.GetValue(@Item).ToString an ?

mit p.name komm ich zwar an die Propertienamen, jedoch nich an den Wert.
nagut p.name tuts auch schon =)