ユニットユニット1;
インタフェース
用途
窓、メッセージ、sysutils、バリアント、クラス、グラフィック、コントロール、フォーム、
ダイアログ、stdctrls;
タイプ
tform1 = class（tform）
ラベル1：tlabel;
ラベル2：tlabel;
Button1：Tbutton;
編集1：tedit;
Button2：tbutton;
手順button1click（sender：tobject）;
手順button2click（sender：tobject）;
プライベート
{プライベート宣言}
公共
{公開宣言}
終わり;
var
form1：tform1;
const pi = 3.14159;
実装
{$ r *.dfm}
手順tform1.button1click（sender：tobject）;
var R、C、S：Real;
始める
edit1.text = ''の場合
showmessage（ '入力は空です、再入力してください！'）//データが入力されていない場合、プロンプト
それ以外
始める
r：= strtofloat（edit1.text）;
c：= 2*pi*r;
s：= pi*sqr（r）;
label2.caption：= '円の周囲は次のとおりです
終わり;
終わり;
手順tform1.button2click（sender：tobject）;
始める
form1.close; //イベントイベントコード
終わり;
終わり。