定义一个函数,将一个整数(作为参数)转变为字符串,每个字符之间加一个空格,并将字符串输出。
定义一个函数,将一个整数(作为参数)转变为字符串,每个字符之间加一个空格,并将字符串输出。
日期：2008-04-14 16:37:00 人气：2
procedure TForm1.Button1Click(Sender: TObject);
var
st1:integer;
begin
st1:=strtoint(edit1.Text);
edit2.Text:=tranint(st1);
end;
function TForm1.tranint(zhengshu:integer):string;
var
i:integer;
str,str2:string;
begin