本文整理自网络,侵删。
procedure SaveAsUTF8( const Name:String; Data: TStrings );const cUTF8: array [1..3] of byte = ($EF,$BB,$BF);var W_TXT: UTF8String; fs: TFileStream; Trimmed: AnsiString;begin Trimmed := TRIM(Data.Text); if Trimmed <> '' then begin W_TXT:= AnsiToUTF8(Trimmed); fs:= TFileStream.Create( Name, fmCreate ); try fs.WriteBuffer( cUTF8[1], sizeof(cUTF8) ); fs.WriteBuffer( W_TXT[1], Length(W_TXT)*Sizeof( W_TXT[1] )); finally fs.free end; end;end;
相关阅读 >>
Delphi中 tstringlist和thashedstringlist的性能对比
Delphi shellexecute执行cmd命令窗口不关闭
更多相关阅读请进入《Delphi》频道 >>