Array Parameter erwartet - Array nicht akzeptiert

[xZise]

Hi DP,

Ich habe folgenden Code:
lRemoteVersion.Caption := Format('Remote Version: %d.%d.%d.%d', newVersion); Wobei "newVersion" ein array ist (aus Words).
Allerdings meint er, dass es keine Funktion gäbe die man mit diesen Parametern aufrufen könnte.
Nun könnte ich "[newVersion[0]...]" schreiben, aber das ist doch unsinnig
Ich habe ein Array, er will ein array (of const)

Wie kann man also ein array bei Format übergeben ohne das array zu zerpflücken und ein anonymes array zu erstellen?

MfG
xZise

[SirThornberry]

hast du ein dynamisches array oder ein statiches?

[xZise]

Es ist ein statisches Array.

[SirThornberry]

ich denke das Problem ist das eben ein Array of Const erwartet wird, du aber ein Array of Word übergibst. Wie man allerdings ein Array of Const definiert ist mir unklar.

[xZise]

lol ^^
Sry, aber ich habe einfach ein bisschen rumgespielt und so funktionierts:

Delphi-Quellcode:

Versin[0] := 1;
Versin[1] := 5;
Versin[2] := 1;
Versin[3] := 0;
lVersion.Caption := Format('Version %d.%d.%d.%d', [@Version]);

[xZise]

Hmm... scheint doch nicht zu funktionbieren?! Bin etwas verwirrt xD

[SirThornberry]

verständlich das es nicht funktioniert denn du übergibst zwar ein Array aber nicht das Array "Versin" sondern ein Array mit einem Element welches ein Pointer ist.
Die Funktion scheint mit Compilermagic umgesetzt zu sein wodurch beliebig viele Parameter/Arrayelemente verschiedenster Typen erlaubt sind.

Es ist mit Delphimitteln nicht möglich ein Array of VerschiedeneTypen zu definieren. Selbst ein Array of Variant hätte nur den einen Typ Variant aber nicht mehrere verschiedene Typen. Das ist nur mit compilermagic möglich weil nur so beim compilieren erkannt werden kann welche Typen sich tatsächlich im Array befinden.

[Dani]

Heyho!

Siehe TVarRec und Variante offene Array-Parameter

[SirThornberry]

@XZise: Bevor du wie ich durch die suche wühlst: Du benötigst ein "Array of TVarRec". Ob Constant oder dynamich spielt wohl keine Rolle, der compiler nimmt beides (zumindest unter D7)

[xZise]

Er nimmt beides, aber er gibt eine Fehlermeldung aus:

Zitat:

---------------------------
Devproject
---------------------------
Format '%d' ungültig oder nicht kompatibel mit Argument.
---------------------------
OK
---------------------------

so sieht der Code nun aus:

Delphi-Quellcode:

procedure TfrmUpdate.bbDownloadClick(Sender: TObject);
var
  fs : TFileStream;
  newVersion : array [0..3] of TVarRec;
begin
{...}
        newVersion[0].VInteger := ReadInteger('Version', 'Major', 0);
        newVersion[1].VInteger := ReadInteger('Version', 'Minor', 0);
        newVersion[2].VInteger := ReadInteger('Version', 'Release', 0);
        newVersion[3].VInteger := ReadInteger('Version', 'Build', 0);
        lRemoteVersion.Caption := Format('Remote Version: %d.%d.%d.%d', newVersion);
{...}
end;

Die Fehlermeldung wird bei "Format" (Wer hät's gedacht) ausgegeben.

[edit]Ich habs ^^ wenn ich auch noch newVersion[] die Eigenschaft VType := vtInteger zuweise klappts auch mit so