Servus DP,

ich hab mir ein Programm geschrieben um eine Bestellliste zu erzeugen.
Mein Problem ist nur, dass wenn ich ein Produkt lösche soll er mir den Preis neu berechnen.
Die Preise stehen in einer TListViewspalte und der Endpreis in einer globalen Var.

Danke schonmal.

Hey!

Einfach die ListView durchgehen und die Zahlen addieren...

zusammenfalten · markieren

Delphi-Quellcode:

var
Gesamtpreis : Double;

function Berechne(ListView : TListView;Spalte : Integer) : Double;
var
 I : Integer;
begin
 //Gesamtpreis ausrechnen
 Result := 0;
 for I := 0 to ListView.Items.Count-1 do
  Result := Result + strToFloat( ListView.Items[I].SubItems[Spalte] );
end;


//Ausführen
procedure ();
begin
 Gesamtpreis := Berechne(ListView1, 0); //Die 2. Spalte
end;

lg

Danke es klappt.
Hab leider noch nicht so viel mit Listview gearbeitet. Es ist das erste Mal