Delphi(Pascal) code setlength(s,sizeof(Taaa)); move(aaa,s[1],sizeof(Taaa)); 还得补充一下 s := StringReplace(S , #0 , #$20 , [rfReplaceAll]);//他要求空格是空格