Listbox zeichen in Zeilen zählen

[bofh]

Hi Leute,

folgendes Problem.

Ich habe eine Listbox, in dieser werden Pfade von dateien aufgeführt.
z.b. so ( DAS FUNKTIONIERT )

c:\pfad0
c:\pfad2\unterpfad1
c:\pfad3\unterpfad1\unterpfad2

jetzt müsste ich hinter jede Zeile die Anzahl an zeichen schreiben
z.b. so ( DAS BEKOMM ICH NICHT HIN )


c:\pfad0 8
c:\pfad2\unterpfad1 19
c:\pfad3\unterpfad1\unterpfad2 30

und wenn diese Zahl einen wert x übersteigt soll die zeile rot werden.

Kann mir jemand eine Hilfestellung geben wie ich die sache angehen kann.
Ich bin für jeden Vorschlag sehr dankbar.


mfg
bofh

[DeddyH]

Mal ohne die Farbe:ListBox1.Items.Add(Format('%s %d',[Pfad, Length(Pfad)]));

[Deep-Sea]

• For-Schleife
• Die Funktion Length()

Allerdings wird das dahinter schreiben der Zahlen bei einem erneuten Aufruf der Berechnung mit in die Länge fallen und es wird dann irgendwann so aussehen: "c:\pfad3\unterpfad1\unterpfad2 30 33 36 39 42 45 [...]" ...

Das Speichern von Metadaten in den Daten ist nicht gerade so schön ...
Also entweder die Daten in TListBox.Items.Objects rein packen, gar nicht merken oder eine TListView nehmen.


Zur Farbe: http://www.swissdelphicenter.ch/de/showcode.php?id=248

[Pfoto]

Hallo,

probiere das mal:

Delphi-Quellcode:

{ Hier die Einträge machen }
{ Dabei wird die Länge als Integer anstatt eines Objektes angehangen }
procedure TForm1.btnAddItemsClick(Sender: TObject);
var
  Eintrag: string;
begin
  Eintrag:= 'c:\pfad0';
  Listbox1.Items.AddObject(Eintrag, TObject(Length(Eintrag)));
  Eintrag:= 'c:\pfad0\Dies ist ein ganz langer Pfad';
  Listbox1.Items.AddObject(Eintrag, TObject(Length(Eintrag)));
end;

{ Wichtig: Eigenschaft "Style" der Listbox muss auf 
  etwas wie "lbOwnerDrawFixed" gestellt, werden damit das
  Ereignis aufgerufen wird.
  Dann einfach die Länge des aktuellen Items auslesen und
  entsprechend rot schreiben, wenn es die max. Länge überschreibt }

procedure TForm1.Listbox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
const
  AbstandLinks = 5;
  MaxLength = 10;
begin
  with Control as TListBox do
  begin
    Canvas.FillRect(Rect);
    If Integer(items.objects[ Index ]) > MaxLength then
      Canvas.Font.Color:= clred else
      Canvas.Font.Color:= clBlack;
    Canvas.TextOut ( Rect.Left + AbstandLinks, Rect.Top, Items[ Index ]);
  end;
end;

Gruß
Pfoto

[bofh]

Vielen Dank,
ich habe die Lösung durch euro Ansätze geschafft.



bofh