Einheit Einheit1;
Schnittstelle
Verwendung
Fenster, Nachrichten, Systeme, Varianten, Klassen, Grafiken, Steuerelemente, Formulare,
Dialoge, Stdctrls;
Typ
Tform1 = Klasse (tform)
Label1: Tlabel;
Label2: Tlabel;
Button1: Tbutton;
Edit1: tedit;
Button2: Tbutton;
PROCEDURE Taste1Click (Absender: Tobject);
PROCEDURE Button2Click (Absender: Tobject);
Privat
{Private Deklarationen}
öffentlich
{Öffentliche Erklärungen}
Ende;
var
Form1: tform1;
const pi = 3,14159;
Durchführung
{$ R *.dfm}
procedure tform1.button1click (Absender: tobject);
var r, c, s: real;
Beginnen
Wenn edit1.text = '' dann
showMessage ('Eingabe ist leer, bitte treten Sie wieder ein!') // Wenn keine Daten eingegeben werden, fordert es ein.
anders
Beginnen
r: = strtofloat (edit1.text);
C: = 2*pi*r;
S: = pi*sqr (r);
Label2. Kaption: = 'Der Umfang des Kreises ist:'+Floattostr (c)+chr (13)+'Die Fläche ist:'+Floattostr (s);
Ende;
Ende;
procedure tform1.button2click (Absender: tobject);
Beginnen
Form1.CLOSE;
Ende;
Ende.