Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#18

AW: Array of String als Konstante klappt nicht...

  Alt 8. Dez 2019, 18:43
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.
$2B or not $2B

Geändert von himitsu ( 8. Dez 2019 um 18:58 Uhr)
  Mit Zitat antworten Zitat