Wo soll die 4. Spalte denn herkommen? Ich sehe da einen ImageIndex, einen Namen und 2 Zahlen, damit komme ich auf 3 Spalten.
[edit]Aber gut:
Delphi-Quellcode:
Umsatz_gesamt := 0;
for i := 0 to liv_transfersalltime.Items.Count - 1 do
begin
Umsatz := StrToInt(ZahlohnePunkte(liv_transfersalltime.Items[i].SubItems[1])) - StrToInt(ZahlohnePunkte(liv_transfersalltime.Items[i].SubItems[0]));
if liv_transfersalltime.Items[i].SubItems.Count < 3 then
liv_transfersalltime.Items[i].SubItems.Add(IntToStr(Umsatz))
else
liv_transfersalltime.Items[i].SubItems[2] := IntToStr(Umsatz);
inc(Umsatz_gesamt,Umsatz);
// doppelt gemoppelt: Umsatz_gesamt := Umsatz_gesamt + Umsatz;
end;
So müsste es immer passen.[/edit]