呵呵,试了一下,果然是,下面给出转换代码
procedure TForm1.Button1Click(Sender: TObject);
var
tmp:pchar;
i,len:integer;
s:string;
begin
s:='!肿肼IICSA龈 ǎ⒋娲咏敝苣喽钭娲谀BK1';
len:=Length(s);
GetMem(tmp,len);
for i:=1 to len do
tmp[len-i]:=s[i];
ShowMessage(tmp);
freeMem(tmp);
end;