delphi 字符串保存UTF-8过程

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;

推荐分享