[请教]同志们帮看看

procedure TForm1.Button1Click(Sender: TObject);
var
s1:string;
begin
s1:='1234';
edit1.Text:=strtoint(s1);
end;

edit1.text本來接收的值就是string類型,而你的s1本來就是string類型,你為什麽還要把s1的值轉換成integer類型呢?

楼主，事实上你的程序这里不需要再加类型转换函数了，因为你在初始的时候已经做了申明:

var
s1:string; //你在这里就已经申明s1是字符类型了。
begin
s1:='1234';
Edit1.Text:=s1; //在这里你直接写出s1的内容就可以了。
end;

Edit1.text的属性是字符属性，所以在输出的时候必需为字符类型，如果需要读出Edit1.Text的值进行计算的话才有必要转换。例如：

Var
s1:=integer;
begin
s1:=StrToInt(Edit1.Text)+10; //这里是将Edit1.Text的值转成整型，然后赋给s1。
Edit1.Text:=IntToStr(s1); //这里是在Edit1.Text中写出S1的值。
end;
（注意：这里Edit.Text里输入的值必需为整数才可以，不然出会报错。）

[此贴子已经被作者于2007-3-17 15:01:07编辑过]