Thema: MyFormat

Einzelnen Beitrag anzeigen

mimi

Registriert seit: 1. Dez 2002
Ort: Oldenburg(Oldenburg)
2.008 Beiträge
 
FreePascal / Lazarus
 
#1

MyFormat

  Alt 27. Mär 2010, 21:11
Delphi-Version: 1
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.
Michael Springwald
MFG
Michael Springwald,
Bitte nur Deutsche Links angeben Danke (benutzte überwiegend Lazarus)
  Mit Zitat antworten Zitat