求助：一个字符转换的问题（已解决）
程序在XP环境下扫行，可以取得内存，可内存存放的数据是ASCII码而已反序的怎样取得其正确的值
比如：实际数据为“1234”
在内存中反映为“34333231”
当然反序问题我可以解决，问题是怎样把“34333231”转换成“1234”
用CHR 也只能转换单独的一组ACSII码。妥
[ 本帖最后由 yingfeng 于 2008-1-22 13:01 编辑 ] 循环
{uses ,StrUtils}
function conversion(str:string):string;
var
i:integer;
temp:string;
begin
for i:=1 to length(str)DIV 2 do
begin
temp :='$' + MidStr(str,i*2-1,2);
result := result + chr(strtoint(temp));
end;
end;
谢了，问题解决，只是没有想到
temp :='$' + MidStr(str,i*2-1,2);
页:
[1]