Hallo,
ich würde dann noch die
Format-Funktion ins Spiel bringen:
Delphi-Quellcode:
var
Ausgabe, Text : string;
Laenge : Integer;
begin
Ausgabe := Format("%10s", [Text]); // rechtbündig
Ausgabe := Format("%-10s", [Text]); // linksbündig
// oder variabel:
Laenge := 10;
Ausgabe := Format("%*s", [Laenge, Text]); // rechtsbündig
Ausgabe := Format("%-*s", [Laenge, Text]); // linksbündig
end;
Aber es wurde ja bereits gesagt: das alles funktioniert nur, wenn in der ListBox ein nicht-proportionaler Zeichensatz (z.B. Courier New) eingestellt ist, was normalerweise nicht besonders gut aussieht. Besser wäre wahrscheinlich die Erweiterung der Listbox auf
mehrere Spalten oder die Verwendung eines geeigneteren Controls, z.B. einer ListView.
Gruß Hawkeye