Hallo,
ich habe heute eine (fast) eigene Format-Beispiel-Funktion geschrieben.
Anregungen hatte ich aus der Lazarus-Format Funktion. Ich habe daraus folgende Funktion erstellen können:
Delphi-Quellcode:
function myFormat(const Fmt : string; const args : array of const):string;
var
x,c,p1,p2,i:Integer;
ch:Char;
str1, str2, str3:String;
begin
c:=Length(args)-1; p1:=Pos('%',fmt); x:=p1+1; i:=0;
str1:=Copy(Fmt, 1, p1-1); str2:=str1;
while i <= c do begin
ch:=Fmt[x];
case ch of
'V', 'N': begin
str2:=str2+String(args[i].VAnsiString);
inc(i);
end;
'A': begin
str2:=str2+IntTostr(args[i].VInteger);
inc(i);
end;
end; // case
// inc(i);
p2:=PosEx('%',FMT, x)+1;
str1:=Copy(Fmt, x+1, abs(p2-x)-2);
x:=p2;
str2:=str2+str1;
end; // while x
result:=str2;
end; // myFormat
// Beispiel Aufruf
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShowMessage(myFormat('Mein Vornamename ist %V, Mein Nachname ist: %N, Ich bin %A Jahre alt ',[Edit2.Text, Edit3.Text, SpinEdit1.Value]));
end;
Sie Läuft Fehler frei unter Lazarus, theoretisch sollte sie auch so in Delphi ab Version 1 laufen. Im Prinzip ab Windows 95.
Probleme könnte es geben, wegen dem Dynamischen Array, daher könnte es auch sein, dass es erst ab Delphi 3 bzw. Delphi 4 Läuft, da bin ich mir jetzt nicht sicher.
Die Variablen richtig zu nennen, Fällt mir immer schwer, an dieses Format habe ich mich gewöhnt. Wenn ihr andere Namen habt, werde ich sie natürlich übernehmen.