String Befehl Format formatieren

[ATS3788]

Hallo
Format formatieren

Format habe ich mit der Zeit lieb gewonnen, nachdem ich mich lange
gesträubt hatte.

Meine Frage

Format ('%dx%d - $Sx%S , [i1 , i2 , s1 , s2]); Das ist klar !
nur wie bekomme ich z.B. hin das zB. in einer Listbox das

Zitat:

256x256 - Hallo1xHallo2
_36x36__-____Hi1xHi2

Also ich die max Länge für die Variablen formatiert ausgeben kann.
Gibt es da was oder wie könnte man dies bewerkstelligen.
Leider habe ich den Source von Format nicht

[himitsu]

Zitat von ATS3788:

Leider habe ich den Source von Format nicht

Wozu auch (tja, hättest du ihn dir gekauft ) ... es gibt doch die OH.

[ATS3788]

Kann mir niemand eine Tip geben wie man so was anstellen könnte.

[himitsu]

Zitat von ATS3788:

Kann mir niemand eine Tip geben wie man so was anstellen könnte.

Format ... Breite/width


Oder selbst die nötige Anzahl der (Leer/_)Zeichen ausrechnen und mit DupeString, bzw. StringOfChar auffüllen.

[Bummi]

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
 Showmessage(
  '"'+ Format('%15.5s - %15.5s',['Test1234','Test9876']) +'"'
 +#13#10+ '"'+ Format('%-15.7s - %-15.7s',['Test1234','Test9876']) +'"'
 +#13#10+ '"'+ Format('%-15.9s - %19.9s',['Test1234','Test9876']) +'"'
  );
end;

[ATS3788]

Danke
für die Info

[ATS3788]

Bummi