本文整理自网络,侵删。
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 Delphi 学习大师qq群讨论的字符串位置替换方法
Delphi 读取流 image1 stream 加载到image2 timage 对象
更多相关阅读请进入《Delphi》频道 >>