Einzelnen Beitrag anzeigen

Benutzerbild von p0w3r5tr34m3r
p0w3r5tr34m3r

Registriert seit: 18. Aug 2003
Ort: Monheim am Rhein
153 Beiträge
 
RAD-Studio 2009 Pro
 
#3

Re: Anfänger-Frage: Aufsummieren mehrerer Button-Klicks

  Alt 28. Jan 2007, 15:44
Hi und herzlich Willkommen in der DP,

zu deiner Frage,
Delphi-Quellcode:
var
  meineZahl: integer; // dies ist eine Globale Variable

procedure TForm1.FormCreate(Sender: TObject);
begin
  meineZahl := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  inc(meineZahl, 1); // wert von meineZahl wird um 1 erhöht
  Edit1.Text := IntToStr(meineZahl);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  inc(meineZahl, 2); // wert von meineZahl wird um 2 erhöht
  Edit1.Text := IntToStr(meineZahl);
end;
guck dir doch mal auf Der Delphi-Treff die Tutorials an. Da stehen einige Anfänger Tutorials.


Mit freundlichen Grüßen
Florian
Florian Cülter
ich bin ein notorischer alles-klein-schreiber!

der 100. Beitrag nach 3 Jahren 25 Wochen und einem Tag
  Mit Zitat antworten Zitat