Vraag & Antwoord

Programmeren

getallen verwijderen delphi

Anoniem
crashfreak
1 antwoord
  • 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

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.