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^+$4);  
    GoodsName:=Pointer(Goods^);
    strName:=WideCharTostring(GoodsName);  //宽字符转string  这里的UNICODE的字符数据 *******
     if strName='11' then continue;
    memo1.lines.add(strName);
                                end;
 end;
上面的是用UNICODE的字符串   GoodsName
 我想换成ASCII的字符串 来显示出DWord里面的汉字，知道 PWideChar;这个指向widechar的指针 不知道是这个指针不对还是别的鞋错了，我其他都没错，就是不会转换成文本文字，困了我几天，头疼