本文整理自网络,侵删。
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 for android 调用java类库
Delphi webbrowser ie 窗口选择中,选中的文字内容
Delphi combobox1dropdown 生成动态下拉列表
更多相关阅读请进入《Delphi》频道 >>