本文整理自网络,侵删。
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 让嵌入窗体的 webbrowser 控件无边框
Delphi xe5 程序中标识win max android ios程序代码分别实现
更多相关阅读请进入《Delphi》频道 >>