delphi7ascii字符轉(zhuǎn)string（精編版）

1、delphi 7 ascii 字符轉(zhuǎn) string 標(biāo)題： delphi 7 ascii 字符轉(zhuǎn) string 標(biāo)題：var monid, goods:pdword; i,pi:dword; goodsname:pwidechar; strname:string;begin memo1.clear; for i:=1 to $100 do begin goods:=pointer($11c1908+$9400+i*4); pi:=goods; if pi>0 then begin goodsname:=pointer(goods+4); goods:=pointer(goods+

2、$4); goodsname:=pointer(goods); strname:=widechartostring(goodsname); /寬字符轉(zhuǎn) string 這里的 unicode的字符數(shù)據(jù)* if strname=11 then continue; memo1.lines.add(strname); end; end; 上面的是用unicode的字符串goodsname 我想換成 ascii 的字符串來(lái)顯示出 dword 里面的漢字， 知道 pwidechar; 這個(gè)指向 widechar 的指針不知道是這個(gè)指針不對(duì)還是別的鞋錯(cuò)了，我其他都沒(méi)錯(cuò)，就是不會(huì)轉(zhuǎn)換成文本文字，困了我?guī)滋欤^

3、疼這是我以前寫(xiě)的讀取二代身份證里信息用到的，不知道對(duì)你有幫助不？見(jiàn)笑了。function unicodetoansi(subunicode: string):string; /將unicode 碼轉(zhuǎn)換為漢字var a:array0.500 of char; s1,s2:char; substr1,substr2,s:string; str:string; i:integer; begin if length(subunicode) mod 4 = 0 then begin str:=; for i:=1 to length(subunicode) div 4 do begin s:=; sub

4、str1:=copy(subunicode,i*4-3,2); substr2:=copy(subunicode,i*4-1,2); s1:=chr(hextoint(substr1); s2:=chr(hextoint(substr2); s:=s+s2+s1; strpcopy(a,s); str:=str+copy(widechartostring(a0),1,2); end; result:=str; end; end;function hextoint(hex:string):cardinal; const chex=0123456789abcdef; var mult,i,loop:integer; begin result:=0; mult:=1; for loop:=length(hex)downto 1 do begin i:=pos(hexloop,chex)-1; if (i<0) then i:=0;