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

Wat doe ik fout? (variabele)

Mr.nuub
2 antwoorden
  • Steeds als ik op de button click zou er zich steeds 1 bij optellen, maar hij blijft hier op 1 staan….. wat doe ik fout??


    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls;

    type
    TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}
    VAR Teller: Integer;[/color:5fc5b3f599]
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    teller := 0;
    teller := teller + 1;
    label1.Caption := IntToStr(teller);[/color:5fc5b3f599]
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    begin

    end;

    end.
  • Ieder keer dat je op de knop klikt, wordt de teller weer op 0 gezet. Daarom blijft je ook alleen maar een '1' zien.

    VAR Teller: Integer;
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    [b:86e6ea7164]teller := 0;[/b:86e6ea7164]
    teller := teller + 1;
    label1.Caption := IntToStr(teller);
    end;

    Je moet van 'teller' een globale variabele maken en die telkens ophogen. Dan wordt het dus zoiets:

    [code:1:86e6ea7164]var
    Form1: TForm1;
    Teller: Integer;



    procedure TForm1.Button1Click(Sender: TObject);
    begin
    teller := teller + 1;
    label1.Caption := IntToStr(teller);
    end;[/code:1:86e6ea7164]

Beantwoord deze vraag

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