Help - variabele

[anoniem]

(Delphi) Hallo, ik heb weer een vraag want ik wil graag dat als ik iedere keer als ik op de button druk hij er steeds 1 naast zet zoals op een rekenmachine: 11111111111. Kan iemand mij hiermee helpen, want nu blijft hij steeds alleen 1 weergeven. VAR a: Real; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin a := 1; Memo1.Text := FloatToStr (a); end; M.v.g

[anoniem]

Elke keer dat je de procedure 'Button1Click' uitvoert, wordt 'a' geïnitialiseerd met waarde '1' en daarmee overschrijf je dus de huidige waarde. Een vergelijkbaar scenario dus als in je [url=http://forum.computertotaal.nl/phpBB2/viewtopic.php?p=1217010]andere vraag[/url]. Als je de initialisatie weghaald, zou het moeten werken. Overigens kun je het ook zonder de variabele doen, door in de procedure de huidige waarde van 'Memo1.Text' op te vragen en daar een '1' aan vast te plakken.

[anoniem]

Misschien is een stukje voorbeeldcode wel handig: [code:1:6323b52605] VAR a: Real; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin a := 1; Memo1.Text := Memo1.Text + FloatToStr (a); end; [/code:1:6323b52605]

[anoniem]

Zoals gezegd kun je de variabele in dat geval net zo goed weg laten: [code:1:40bbe03173] {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Text := Memo1.Text + "1"; end;[/code:1:40bbe03173]