Listbox Items auf eine Länge bringen

[xe0n]

hi

ich hab ein Prob.
und zwar hab ich ne listbox wo einträge drin stehen.

123456789
abcdefghi
ABCDEFGHI
usw...

die sollen jetzt alles auf eine bestimmte zeichenlänge gebracht werden.
Da ich selbst noch anfänger binn muss ich euch mal fragen :-D.

Delphi-Quellcode:

var
a:string;
i:integer;
begin
i:=0;
for i := 0 to 4 do
a:=listbox1.Items[i].Text
SetLength(a,5);
Listbox1.Items[i].Add(a);

hier mein erbärmlicher versuch der scheiterte , ja ihr werdet zwar lachen aber jeder musst mal anfangen.

ich hoffe ihr koennt mir helfen

mfg Xe0n

[tomsel]

Delphi-Quellcode:

listbox1.Items[i] := copy(listbox1.Items[i], 1, iLaenge);

[marabu]

Und falls mal einer der Strings zu kurz ist hilft vielleicht das:

Delphi-Quellcode:

function RightPad(s: string; padChar: char; size: byte): string;
begin
  if Length(s) < size
    then Result := s + StringOfChar(padChar, size - Length(s))
    else Result := s;
end;

Grüße vom marabu

[leddl]

Dein erster Fehler ist, daß du in der For-Schleife kein Begin..End setzt. Dadurch wird bei jedem Schleifendurchlauf nur der erste Befehl ausgeführt. a wird also immer wieder neu zugewiesen, ohne daß etwas damit passiert. Erst das letzte Element wird dann gekürzt.
Dein zweiter Fehler ist, daß du das gekürzte Element der ListBox neu (also am Ende) hinzufügst, anstatt das alte zu ersetzen.
Das i := 0 vor der Schleife brauchst du auch nicht, das wird ja in der Schleife schon gesetzt.
Und auf die Text-Eigenschaft der Items brauchst du auch nicht zugreifen, Items[i] reicht ;)

Und den nötigen Code hat dir tomsel schon gegeben. ;)