array of const für spätere Verwendung speichern

[himitsu]

TValue: Dieses Array kann man aber nicht an ein array of const übergeben?

Delphi-Quellcode:

procedure Something(const Args: array of const);
var
  RecPtr: PRec;
begin
  New(RecPtr);
  SetLength(RecPtr.Params, Length(Args));
  for I := Low(Args) to High(Args) do
    RecPtr.Params[I] := Args[I];
  //
  Format('', RecPtr.Params);
  Dispose(RecPtr);
end;

PS: Bei Record-Pointer kann man die Dereferenzierung weg lassen, wenn man auf Felder/Property/Funktionen zugreift, da Delphi das impliziet macht. Halt wie bei den Objekten, nur dass dort die explizite Angabe nicht erlaubt ist.
Aber so lässt sich der Code später mal problemloser auf schöne Datenobjekte umstellen.

[Uwe Raabe]

Zitat von himitsu:

TValue: Dieses Array kann man aber nicht an ein array of const übergeben?

Nicht direkt, aber über eine Schleife lässt sich natürlich einfach wieder ein array of TVarRec aufbauen:

Delphi-Quellcode:

type
  TRec = record
  private
    function GetAsVarRecs: TArray<TVarRec>;
  public
    Params: array of TValue;
    constructor Create(const AParams: array of const);
    property AsVarRecs: TArray<TVarRec> read GetAsVarRecs;
  end;

constructor TRec.Create(const AParams: array of const);
var
  I: Integer;
begin
  SetLength(Params, Length(AParams));
  for I := Low(AParams) to High(AParams) do begin
    Params[I] := AParams[I];
  end;
end;

function TRec.GetAsVarRecs: TArray<TVarRec>;
var
  I: Integer;
begin
  SetLength(result, Length(Params));
  for I := Low(Params) to High(Params) do begin
    result[I] := Params[I].AsVarRec;
  end;
end;

procedure Test(const Fmt: string; const Args: array of const);
var
  rec: TRec;
  S: string;
begin
  rec := TRec.Create(Args);
  S := Format(Fmt, rec.AsVarRecs);
  Assert(S = Format(Fmt, Args));
end;