단위 유닛 1;
인터페이스
용도
창, 메시지, 시스템, 변형, 클래스, 그래픽, 컨트롤, 양식,
대화, stdctrls;
유형
tform1 = 클래스 (tform)
라벨 1 : tlabel;
라벨 2 : tlabel;
버튼 1 : tbutton;
edit1 : 테디;
버튼 2 : tbutton;
절차 버튼 1Click (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 : = '원의 경계는'+floattostr (c)+chr (13)+'입니다.'+floattostr (s);
끝;
끝;
절차 tform1.Button2Click (sender : tobject);
시작하다
form1.close; // 이벤트 버튼 이벤트 코드
끝;
끝.