Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

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.