Einzelnen Beitrag anzeigen

Benutzerbild von Phoenix
Phoenix
(Moderator)

Registriert seit: 25. Jun 2002
Ort: Hausach
7.533 Beiträge
 
#1

InnoSetup / Pascal Script: Wie array of string übergeben?

  Alt 6. Mai 2021, 15:02
Irgendwie muss mein Pascal über die letzten Jahre arg eingerostet sein.
Ich baue gerade ein InnoSetup-Script, und habe ein Problem beim Formatieren von CustomMessages mit Platzhaltern.

Folgendes funktioniert:
Delphi-Quellcode:
var
   message: string;
begin
   message := CustomMessage('MyCustomMessageName'); // Die Message sei: 'Das %1 ist %2 ein %3 Test'
   result := FmtMessage(message, [IntToStr(1), 'Some text', IntToStr(3)]); // Array mit den Argumenten wird direkt übergeben
end;
Am Ende habe ich "Das 1 ist Some text ein 3 Test".

Folgendes funktioniert leider nicht:
Delphi-Quellcode:
var
   message: string;
   args: Array of String;
begin
   message := CustomMessage('MyCustomMessageName'); // Die Message sei: 'Das %1 ist %2 ein %3 Test'
   args := [IntToStr(1), 'Some text', IntToStr(3)]; // Array wird hier vorbereitet...
   result := FmtMessage(message, args); // ... und als variable übergeben.
end;
Hier wirft mir InnoSetup zur Laufzeit einen "Type Mismatch"-Fehler beim Aufruf von FmtMessage.
FmtMessage ist laut InnoSteup Doku folgendermassen definiert: function FmtMessage(const S: String; const Args: array of String): String;
Eigentlich will ich folgende Hilfsfunktion realisieren:
Delphi-Quellcode:
function FormatCustomMessage(const messageId: String; const arguments: Array of String): String;
begin
   result := FmtMessage(CustomMessage(messageId), arguments); // array soll aus den Parametern kommen
end;
Und dann so aufrufen: Log(FormatCustomMessage('CreatedCustomWizardPage', [IntToStr(result.Id), caption, IntToStr(previousPageId)]));
Die Frage lautet also, wie kann ich in Inno / PascalScript das Array of String mit den Argumenten von einem Funktionsaufruf auf den anderen durchschleifen?
Irgendwie komm ich mir grad etwas doof vor, weil das doch recht easy sein müsste, oder?

Vielen lieben Dank,

Sebastian
Sebastian P.R. Gingter
不死鳥 Visit my Blog.
Do not argue with an idiot. They lower you to their level and then try to beat you with experience.
  Mit Zitat antworten Zitat