Array of String als Konstante klappt nicht...

[himitsu]

ich meinte natürlich
Typ/Variable: array of xyz (das enstspricht intern TArray<xyz>)
Parameter-Definition: array of xyz

Bei deinem TVarRec mußt du aber aufpassen, dass das worauf das VarRec zeig, auch nach Aufruf der Funktion noch existiert.

Ja, dass dieses const = TVarRect, das kann ich nicht abstreiten.
Allerdings ist der Inhalt dieses Arrays nur wärend der Laufzeit der Methode gültig,
aber später können enthaltene Zeiger schnell ungültig sein. (und Strings sind Zeiger)

Delphi-Quellcode:

function ArrayOfConstToArrayOfTVarRec(A: array of const): TArray<TVarRec>;
begin
  Result := TArray<TVarRec>(@A);
end;

procedure TForm7.Button1Click(Sender: TObject);
var
  A: TArray<TVarRec>;
begin
  A := ArrayOfConstToArrayOfTVarRec(['hello' + IntToStr(0)]);
  Showmessage(String(A[0].VUnicodeString)); // zeigt "hello0"
end;

Und nun noch ein bissl Umstellen, damit der Test aus dem Scope der temporären Variable läuft, welche der Compiler für das 'hello'+... erzeugt hatte.

Delphi-Quellcode:

function ArrayOfConstToArrayOfTVarRec(A: array of const): TArray<TVarRec>;
begin
  Result := TArray<TVarRec>(@A);
end;

procedure Test(var A: TArray<TVarRec>);
begin
  A := ArrayOfConstToArrayOfTVarRec(['hello' + IntToStr(0)]);
end;

procedure TForm7.Button1Click(Sender: TObject);
var
  A: TArray<TVarRec>;
begin
  Test(A);  // peng
  Showmessage(String(A[0].VUnicodeString));
end;

TVarRec ist leider nicht so "leicht" zu benutzen, ist jedenfalls nicht vergleichbar mir Variant, TValue und allen anderen Delphi-Typen.