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.