Einzelnen Beitrag anzeigen

Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.027 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#7

AW: Zwei Array of const kombinieren

  Alt 18. Jul 2018, 16:02
Einfach ein array of const in ein array of TVarRec umwandeln, dann kannst du dynamische Array Konkatenation nutzen und das kann wieder in ein array of const gegeben werden. Da du nur die TVarRec referenzen lokal nutzt, brauchst du auch kein Zauberwerk veranstalten, den Rudy in seinem Artikel beschreibt.

Delphi-Quellcode:
function _Args(const args: array of const): TArray<TVarRec>;
var
  i: Integer;
begin
  SetLength(Result, 0);
  SetLength(Result, Length(args));
  for i := 0 to High(args) do
    Result[i] := args[i];
end;

....

inherited CreateFmt(R_TECHNIK_EXCEPTION, _Args([sFehler, Fehlernummer]) + _Args(Args));
Wirklich raketenschnell wird der Code natürlich durch das ganze Array allokieren nicht, aber was solls, wir sind ja eh in einer Exception
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat