Feldwerte eines Records über den Feldindex abrufen

[himitsu]

oder manuell

Delphi-Quellcode:

type
  TMyRecord = packed record
  private
    function GetFeld(idx: Integer): string;
    procedure SetFeld(idx: Integer; const Value: string);
  public
    FeldA, FeldB, FeldC: string;
    property Feld[idx: Integer]: string read GetFeld write SetFeld;
  end;

  // oder

  TMyRecord = packed record
  private
    FFeld: array[0..2] of string;
    function GetFeld(idx: Integer): string;
    procedure SetFeld(idx: Integer; const Value: string);
  public
    property FeldA: string index 0 read GetFeld write SetFeld;
    property FeldB: string index 1 read GetFeld write SetFeld;
    property FeldC: string index 2 read GetFeld write SetFeld;
    property Feld[idx: Integer]: string read GetFeld write SetFeld;
  end;

  // oder (wobei, neeeeeee)

  TMyRecord = packed record
  private
    function GetFeld(idx: Integer): string;
    procedure SetFeld(idx: Integer; const Value: string);
  public
    Feld: array[0..2] of string;
    property FeldA: string index 0 read GetFeld write SetFeld;
    property FeldB: string index 1 read GetFeld write SetFeld;
    property FeldC: string index 2 read GetFeld write SetFeld;
  end; 

  // oder ....

[Kostas]

Hallo Zusammen,

oh, so viele Variante, vielen lieben Dank.

Ich benötige über den Index den Namen und Feldwert. Deshalb versucht ich die Varianten von @mytbo

Delphi-Quellcode:

function GetFieldValue(pmTypeInfo: Pointer; pmInstance: Pointer; pmFieldIdx: Integer): TValue;
begin
  if (pmTypeInfo <> Nil)
    and (pmInstance <> Nil)
    and (pmFieldIdx >= 0) then
  begin
    var rttiType: TRttiType := TRttiContext.Create.GetType(pmTypeInfo);
    if rttiType <> Nil then
    begin
      var rttiFields: TArray<TRttiField> := rttiType.GetFields;
      if Length(rttiFields) > pmFieldIdx then
        Exit(rttiFields[pmFieldIdx].GetValue(pmInstance));
    end;
  end;
  Result := TValue.Empty;
end;

var
  rec: TMyRecord;
begin
  rec.FeldC := 'Test';
  ShowMessage(GetFieldValue(TypeInfo(TMyRecord), @rec, 2).ToString);

Delphi-Quellcode:

var rttiFields: TArray<TRttiField> := rttiType.GetFields;
//das TArray<TRttiField> hier bekomme ich einen Fehler angezeigt E2010 Inkompatible Typen 'String' und 'TValue'

Hat jemand eine Idee?

[Uwe Raabe]

Zitat von Kostas:

Ich benötige über den Index den Namen und Feldwert.

Das ist aber schon eine nicht ganz unerhebliche Information...

[Kostas]

Sorry Uwe,

das war mir nicht klar.

[mytbo]

Zitat von Kostas:

Ich benötige über den Index den Namen und Feldwert.

Delphi-Quellcode:

function GetFieldNameAndValue(pmTypeInfo: Pointer; pmInstance: Pointer; pmFieldIdx: Integer; out pmoFieldName: String; out pmoFieldValue: TValue): Boolean;
var
  rttiType: TRttiType;
  rttiFields: TArray<TRttiField>;
begin
  if (pmTypeInfo <> Nil) 
    and (pmInstance <> Nil)
    and (pmFieldIdx >= 0) then
  begin  
    rttiType := TRttiContext.Create.GetType(pmTypeInfo);
    if rttiType <> Nil then
    begin
      rttiFields := rttiType.GetFields;
      if Length(rttiFields) > pmFieldIdx then
      begin
        pmoFieldName := rttiFields[pmFieldIdx].Name;
        pmoFieldValue := rttiFields[pmFieldIdx].GetValue(pmInstance);
        Exit(True);
      end;
    end;
  end;
  Result := False;
end;

var
  rec: TMyRecord;
  fieldName: String;
  fieldValue: TValue;  
begin
  rec.FeldC := 'Test';
  if GetFieldNameAndValue(TypeInfo(TMyRecord), @rec, 2, fieldName, fieldValue) then
    ShowMessage(Format('Name: %s, Value: %s', [fieldName, fieldValue.ToString]));
end;

Bis bald...
Thomas

[Kostas]

Hallo Thomas,

Ich habe deine Version anwenden können, es funktioniert perfekt.
Das mit der Fehlermeldung lag daran dass bei Value das Result ein TValue ist und ich String benötigte. Das habe ich nicht gleich gesehen. Jetzt funktioniert alles perfekt.

Delphi-Quellcode:

var rttiFields: TArray<TRttiField> := rttiType.GetFields;
//das TArray<TRttiField> hier bekomme ich einen Fehler angezeigt E2010 Inkompatible Typen 'String' und 'TValue'

Vielen Dank an alle und Euch noch eine schöne Zeit.

[mytbo]

Zitat von Kostas:

Ich habe deine Version anwenden können, es funktioniert perfekt.

Mit mORMot (ich glaube, du verwendest es) sieht es so aus:

Delphi-Quellcode:

uses
  mormot.core.base,
  mormot.core.json,
  mormot.core.rtti;

function GetFieldNameAndValue(pmTypeInfo: PRttiInfo; pmInstance: Pointer; pmFieldIdx: Integer; out pmoFieldValue: Variant): String;
var
  rttiType: TRttiType;
  rttiFields: TRttiCustomPropDynArray;
begin
  if (pmTypeInfo <> Nil) 
    and (pmInstance <> Nil)
    and (pmFieldIdx >= 0) then
  begin  
    rttiFields := Rtti[pmTypeInfo].Props.List;
    if Length(rttiFields) > pmFieldIdx then
    begin
      rttiFields[pmFieldIdx].GetValueVariant(pmInstance, TVarData(pmoFieldValue));
      Exit(Utf8ToString(rttiFields[pmFieldIdx].Name));
    end;
  end;
  Result := '';  
end;

var
  rec: TMyRecord;
  fieldName: String;
  fieldValue: Variant;  
begin
  rec.FeldC := 'Test';
  fieldName := GetFieldNameAndValue(TypeInfo(TMyRecord), @rec, 2, fieldValue);
  if fieldName <> '' then
    ShowMessage(Format('Name: %s, Value: %s', [fieldName, VarToStr(fieldValue)]));

Bis bald...
Thomas

[himitsu]

Ich glaube zwar, dass Delphi beim String, Interface oder Variant aus dem OUT ein VAR macht, oder vielleicht vor Übergabe den Wert auf NIL setzt,
aber am Besten niemals für Managed-Types ein OUT benutzen.

Wenn OUT wirklich das macht, was es eigentlich soll, dann wäre das eine super Stelle für Speicherleck.