getallen verwijderen delphi

[anoniem]

Ik heb een programma waar men een winkelmandje heeft. Men selecteerd een product uit de combobox en drukt op voeg toe. Zodra er op voeg toe wordt gedrukt, komt de ingestelde prijs van het product in een TEdit veld te staan en het geselecteerde product in een Listbox. Nu lukt het al om producten in de listbox te selecteren en te verwijderen, maar ik kan de 'totaalprijs' niet meer aanpassen! Code voor toevoegen: [code:1:f011978b1a] procedure TForm1.voegtoeeleknlClick(Sender: TObject); begin Winkelkar.Items.Add(elektro.Text); if elektro.Text = 'Windows Vista Ultimate €160,00' then begin x1 := x1 + 160.00 ; end; s1 := FloatToStr(x1) ; geld.Text := s1 ;[/code:1:f011978b1a] Code voor verwijderen: [code:1:f011978b1a] procedure TTForm1.ButtonDeleteClick(Sender: TObject); begin Winkelkar.DeleteSelected ; end [/code:1:f011978b1a] Geld.text is de TEdit waar het totaalbedrag in moet komen en elektro.text is de combobox. Kan iemand me helpen? Alvast bedankt

[anoniem]

[code:1:d735dd119e]if elektro.Text = 'Windows Vista Ultimate €160,00' then begin x1 := x1 + 160.00 ; end;[/code:1:d735dd119e] zolang elektro.text niet voldoet aan ''Windows Vista Ultimate €160,00' wordt x1 niet opgehoogd, dus blijft s1 hetzelfde waardoor geld.text ook weer dezelfde waarde geeft. heb je al geprobeert om 2 keer 'Windows Vista Ultimate €160,00' toe te voegen. Hierdoor zal geld.text wel worden opgehoogt. door x1 := x1 + 160.00 houd je in je code geen rekening met de verschillende prijzen van de artikelen.