谁能帮我遍这个程序呀

Question

通过EDIT输入半径。求出圆面积，任选一种方法将计算结果输出。
 提示：  edit中的内容edit.text是字符串型，当作半径进行计算前要先进行转换，将其转换成整型，输出时须再转回到字符串型（掌握strtoint和floattostr的用法）

Answer 1

将其转换成整型
-----------------------
半径都是整数吗？ int a;
float s;a := strtoint(edit1.text);
s := pi*a*a;
showmessage(floattostr(s));好久没用过可能有写错的地方，大概就是这个意思吧。

Answer 2

新建一个project，在Form1上放一个TEdit（输入框）和TButton（按钮），
双击Button，些如下语句：
procedure TForm1.Button1Click(Sender: TObject);
var
  r:integer;
  s:real;
begin
  r:=strtoint(edit1.text);
  s:=pi*r*r;
  showmessage('面积为：'+floattostr(s));
end;

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  edit1.Clear;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  r:integer;
  s:real;
begin
  if edit1.Text='' then
  begin
  showmessage('輸入數值不可為空，請檢查！');
  edit1.SetFocus;
  exit;
  end;
  r:=strtoint(edit1.text);
  s:= pi * r * r;
  showmessage('面積為:'+floattostr(s));
end;end.

Answer 4

楼上加一个
CONST PI:=3.1415926

Answer 5

Pi在DELPHI已经定义了，不用申明