Leerzeichen erzeugen

[Lannes]

Hallo,

da gibt es noch die Funktion Format.

Ein Beispiel:

Delphi-Quellcode:

var sFS : String;
begin
  sFS := '%0:-15s %1:-15s %2:3s';//'-' > Leerzeichen rechts, sonst links
  Memo1.Lines.add(Format('%0:-15s %1:-15s %2:s',['Vorname','Name','Alter']));
  Memo1.Lines.add(StringOfChar('-',37));
  Memo1.Lines.add(Format(sFS,['Hans','Meier','42']));
  Memo1.Lines.add(Format(sFS,['Peter','Murks','35']));
  Memo1.Lines.add(Format(sFS,['Klara','Musterfrau','102']));

Die Ausgabe:

Code:

Vorname         Name            Alter
-------------------------------------
Hans            Meier            42
Peter           Murks            35
Klara           Musterfrau      102