function IntToStr(Value: Int64): string; overload;
var myInt:Int64; myStr:string; begin myInt:=1234567890; myStr:=IntToStr(myInt); Edit1.Text:=myStr; end;还要看每个字符的话, var char myCh; i:integer; begin for i:=1 to Length(myStr) do begin myCh:=myStr[i]; showMessage(myCh); end; end;
myInt:Int64;
myStr:string;
begin
myInt:=1234567890;
myStr:=IntToStr(myInt);
Edit1.Text:=myStr;
end;还要看每个字符的话,
var
char myCh;
i:integer;
begin
for i:=1 to Length(myStr) do
begin
myCh:=myStr[i];
showMessage(myCh);
end;
end;