Zitat von
DeddyH:
Wozu die innere Schleife? Du weißt doch, wo was steht.
Delphi-Quellcode:
var i,gesamt,Umsatz: integer;
begin
gesamt := 0;
for i := 0 to ListView.Items.Count - 1 do
begin
Umsatz := StrToInt(ListView.Items[i].SubItems[1]) - StrToInt(ListView.Items[i].SubItems[2]);
ListView.Items[i].SubItems[3] := IntToStr(Umsatz);
inc(gesamt,Umsatz);
end;
Nun noch unten gesamt ausgeben und gut is. Auf Dauer wirst Du mit Deiner Einstellung aber nicht glücklich werden, das kann ich Dir prophezeien.
[edit] Addition in Subtraktion geändert, Denkfehler [/edit]
Dann kommt die Fehlermeldung:
Listenindex überschreitet das Maximum(2);