unité unité 1;
interface
usages
Windows, messages, systèmes, variantes, classes, graphiques, contrôles, formulaires,
Dialogues, stdctrls;
taper
Tform1 = classe (tform)
Label1: Tlabel;
Label2: Tlabel;
Button1: Tbutton;
Edit1: Tedit;
Button2: TBUTTON;
Procédure Button1Click (expéditeur: tobject);
Procédure Button2Click (expéditeur: tobject);
Privé
{Déclarations privées}
publique
{Déclarations publiques}
fin;
var
FORM1: TFORM1;
const pi = 3,14159;
Mise en œuvre
{$ R * .dfm}
Procédure tform1.button1Click (expéditeur: tobject);
var r, c, s: réel;
Commencer
Si edit1.text = '' alors
ShowMessage ('l'entrée est vide, veuillez rentrer!') // S'il n'y a pas de données entrées, invite
autre
Commencer
r: = strtofloat (edit1.text);
c: = 2 * pi * r;
S: = pi * sqr (r);
Étiquette2.Caption: = 'Le périmètre du cercle est:' + FloatToStr (c) + chr (13) + 'La zone est:' + FloatToStr (s);
fin;
fin;
Procédure tform1.button2click (expéditeur: tobject);
Commencer
form1.close;
fin;
fin.