Stringstelle auf "leer" prüfen

[Fussball-Robby]

Zitat:

Zitat von himitsu

und dort wird alles über 10 Zeichen abgeschnitten :stupid:

Ja, wenn ich das mal früher gewusst hätte.. :mrgreen:

[Hawkeye219]

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