ascii转换（在线等）

[icywind]

一个integer类型的数，在1-9999之间，不确定，现在要把他的ascii码存到一个数组里，如buf : array [0..3] fo int.buf[1]存个位数的ascii码，依次类推，如何存。在线等。

[icywind]

没人理 我呀？？呵呵

[oracle_lover]

var
TmpNum,i: Integer;
TmpStr: String;
Buf: Array[0..3] of integer;
begin
TmpNum:=234;
TmpStr:=IntToStr(TmpNum);
for i:=1 to 4-Length(TmpStr) do
TmpStr:='0'+TmpStr; //不足4位的，前面补0
for i:=0 to 3 do
Buf[i]:=Ord(TmpStr[i+1]);
for i:=0 to 3 do
Memo1.Lines.Add(IntToStr(Buf[i])); //结果是48 50 51 52
end;

[FrameSniper]

var
vSourceInt,I:Integer;
TempStr:String;
Buf:Array[0..3] of Integer;
begin
vSourceInt:=1234;
TempStr:=IntToStr(vSourceInt);
for I:=Length(TempStr) downto 1 do
Buf[Length(TempStr)-I]:=TempStr[I];
end;

end;