Question

C++Builder转换Delphi代码怎么写？？

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Clear() ;
BitBtn1->Enabled =false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
double i;
double j;
j=1;
for(i=1;i<StrToInt(Edit1->Text)+1;i++)
j=i*j;
ShowMessage(FloatToStr(j));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
BitBtn1->Enabled =true;
}
//-------------------------------------

Answer 1

并且都布知道你要做什么！定义的双精度，然后转换成整数，最后单精度输出？服了

edit1.text 没有经过转换，如果输入的不是数字，就会报错。
try
strtoint(edit1.text);
except
showmessage('输入的不是一个整数');
exit;
end；

procedure TForm1.FormCreate(Sender:TObject);
begin
Edit1.text:='';
BitBtn1.Enabled :=false;
end;

//---------------------------------------------------------------------------
procedure TForm1.BitBtn1Click(Sender:TObject);
var
j,j:integer;

begin
j:=1;
for i:=1 to StrToInt(Edit1.Text) do
j:=i*j;
ShowMessage(FloatToStr(j));
end;
//---------------------------------------------------------------------------
procedure TForm1.Edit1Change(Sender:TObject);
begin
BitBtn1.Enabled :=true;
end;

Answer 2

procedure TForm1.FormCreate(Sender:TObject);
begin
Edit1.Clear() ;
BitBtn1.Enabled :=false;
end;

//---------------------------------------------------------------------------
procedure TForm1.BitBtn1Click(Sender:TObject);
var
i,j:double;
begin
j:=1;
for i:=1 to StrToInt(Edit1.Text)
j:=i*j;
ShowMessage(FloatToStr(j));
end;
//---------------------------------------------------------------------------
procedure TForm1.Edit1Change(Sender:TObject);
begin
BitBtn1.Enabled :=true;
end;

Answer 3

如果想自己写一个转换器，那可是一个大工程，要充分吃透两者的编译处理方法才行。