Home » Tutorials » VCL » Ein kleiner Rechner
Ein kleiner Rechner
Quellcode
Und hier noch einmal der gesamte Quelltext:
unit Unit1; {Name der Unit} interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; procedure Button1Click(Sender: TObject); private { Private-Deklarationen } public { Public-Deklarationen } end; var Form1: TForm1; //Hier werden die Globalen Variablen definiert implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); //Unser OnClick-Ereignis var zahl1, zahl2, ergebnis: integer; //Unsere Variablen begin zahl1:=StrToInt(Edit1.Text); zahl2:=StrToInt(Edit2.Text); ergebnis:=zahl1+zahl2; Label5.Caption:=IntToStr(ergebnis); end; end.