listview 2. Spalte ansprechen

[Micha]

Ja, das stimmt, aber dann gibts ne Fehlermeldung: Inkompatible Typen String und Integer

Aber ich glaub, mich hat noch keiner richtig verstanden.

ListView
Datum_________Tage bis 23.02.2004___Name
19.02.2004____4_____________________Michael
23.02.2004____0_____________________Bernd
25.02.2004____368___________________Christian

Wenn also nun in der 2. Spalte (Tage bis) der Wert größer als 0 ist, dann soll dieser Wert rot eingefärbt werden.

Also das Ganze nochmal:

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
if Item.SubItems.Text >= 0 then
 begin
    TListView(Sender).Canvas.Font.Color := clRed;
   end;
end;

Ich hoffe, es ist jetzt verstanden und tut mir leid, dass es am Anfang vielleicht nicht klar ausgedrückt war.