Delphi Record in for-schleife

[Neutral General]

Kurz zusammengebastelt:

Delphi-Quellcode:

uses
  System.RTTI;

type
  TTestRecord = record
    Test1: String[10];
    Test2: String[20];
    Test3: String[50];
    Test4: String[50];
  End;

procedure TForm1.FormCreate(Sender: TObject);
var testRec: TTestRecord;
    rtti: TRttiContext;
    typ: TRttiType;
    field: TRttiField;
    recAsString: AnsiString;
begin
  testRec.Test1 := 'Hallo';
  testRec.Test2 := 'Welt';
  testRec.Test3 := 'und';
  testRec.Test4 := 'so';

  rtti := TRttiContext.Create;
  try
    typ := rtti.GetType(TypeInfo(TTestRecord));

    recAsString:= '';
    for field in typ.GetFields() do
      recAsString := recAsString + PShortString(NativeUInt(@testRec) + NativeUInt(field.Offset))^;

    ShowMessage(String(recAsString));
  finally
    rtti.Free;
  end;
end;

Dafür muss dein Record aber zu 100% aus ShortStrings bestehen.

[ig66]

Besten Dank an euch,

Der schöne Günther, da hast du vollkommen recht ich mache es mir nur komplizierter als es ist ich folge deinem Rat und benutze einfach ein
String Array.

[DenkDirNix]

Da Du mit den guten alten short-strings arbeitest ginge auch folgendes:

Code:

  var s: ansistring;
      size: word;

  size := sizeOf( ttestRecord );
  SetLength( s, size );
  move( testRecord.Test1[0], s[0], size )

Allerdings hast Du das Längenbyte jedes Strings mit drin und die Linebreaks fehlen.

[Neutral General]

Teste das mal. Das funktioniert nicht. (Aus mehreren Gründen)

[EmWieMichael]

Zu dem Record (als "Packed" definiert) benötigt man eine zweite Struktur zur Definition der Felder des Records, z. B. ein Array, bei dem jedes Element Typ und Länge eines Feldes angibt. Mit den Informationen kann man dann die Position eines Feldes im Record berechnen und die Daten per Move auslesen.
Nutze ich zum Handling mit Datensätzen von Datenbanken.

[Neutral General]

Zitat von EmWieMichael:

Zu dem Record (als "Packed" definiert) benötigt man eine zweite Struktur zur Definition der Felder des Records, z. B. ein Array, bei dem jedes Element Typ und Länge eines Feldes angibt. Mit den Informationen kann man dann die Position eines Feldes im Record berechnen und die Daten per Move auslesen.
Nutze ich zum Handling mit Datensätzen von Datenbanken.

Das, nur in weniger umständlich, mache ich oben in meinem Code per RTTI.

[EmWieMichael]

Zitat von Neutral General:

Das, nur in weniger umständlich, mache ich oben in meinem Code per RTTI.

Das stimmt, für das Problem des TE ist Deine Lösung einfacher. Für meine Anforderungen wäre RTTI vermutlich nicht das Richtige, da ich a) weitere Informationen zu einzelnen Record-Feldern benötige und b) mehr als 40 Record-Typen als typlose Records an zig verschiedene Funktionen übergebe.
Ich muss allerdings zugeben, mich in der vergangenen Viertelstunde das erste Mal mit RTTI 'beschäftigt' zu haben...