求助：一个字符转换的问题（已解决）

yingfeng

程序在XP环境下扫行，可以取得内存，可内存存放的数据是ASCII码而已反序的


怎样取得其正确的值


比如：实际数据为“1234”

在内存中反映为“34333231”


当然反序问题我可以解决，问题是怎样把“34333231”转换成“1234”

用CHR 也只能转换单独的一组ACSII码。妥

[ 本帖最后由 yingfeng 于 2008-1-22 13:01 编辑 ]

飘云

循环

1. 
   
2. 
   
3. {uses ,StrUtils}
   
4. function conversion(str:string):string;
   
5. var
   
6.   i:integer;
   
7.   temp:string;
   
8. begin
   
9.   for i:=1 to length(str)DIV 2 do
   
10.   begin
    
11.       temp :='$' + MidStr(str,i*2-1,2);
    
12.       result := result + chr(strtoint(temp));
    
13.   end;
    
14. end;
    

复制代码

yingfeng

谢了，问题解决，只是没有想到

temp :='$' + MidStr(str,i*2-1,2);