Hallo,
ich stehe gerade etwas auf dem Schlauch und verstehe meine eigene produktion hier nicht mehr
Folgende Konstellation:
Ich habe eine Listview mit 4 Spalten!
Spalte 2 ist der Einkaufspreis (EP), Spalte 3 der Verkaufspreis (VP) und Spalte 4 der Umsatz (U), EP und VP stehen in der Liste, die Spalte 4 für den Umsatz ist zunächst leer.
Es soll der VP minus EP (Umsatz) in Spalte 4 angezeigt werden und der Gesamtumsatz (alle addiert) am Ende angezeigt werden!
Delphi-Quellcode:
procedure TForm1.but_umsatzClick(Sender: TObject);
var L, Li : TListItem;
EP, VP, U : string;
i,q, U, U_gesamt : integer;
begin
U_gesamt := 0;
for i := 0 to liv_transfers.Items.Count - 1 do
begin
for Q := 2 to liv_transfers.Items[I].SubItems.Count - 1 do
begin
EP := liv_transfers.Items[I].SubItems[0];
VP := liv_transfers.Items[I].SubItems[1];
EP:= ZahlohnePunkte(EP);
VP := ZahlohnePunkte(VP);
U := strtoint(VP) - strtoint(EP);
U_gesamt := U + U_gesamt;
end;
end;
L := liv_transfers.items.add;
L.Caption := ('_______________');
L.SubItems.Add('___________');
L.SubItems.Add('___________');
L.SubItems.Add('___________');
Li := liv_transfers.items.add;
Li.Caption := ('Gesamt');
Li.SubItems.Add('');
Li.SubItems.Add('');
Li.SubItems.Add(ZahlmitPunkten(inttostr(U_gesamt)));
end;
So wie ich es jetzt zunächste gemacht habe, wird nur der Gesamtumsatz am Ende angezeigt und das ganze funktioniert nur
wenn manche Umsätze schon in Spalte 4 stehen, wenn Spalte 4 komplett leer ist geht es nicht (for Q := 2 to liv_transfers.Items[I].SubItems.Count - 1 do)???.
Ich blick da grad nicht mehr durch?!?!
Hoffe es kann jmd helfen!