語法:
代碼: 選擇全部
function WriteUTF8String2File(filename: string; us: UTF8String):Boolean;
var
wf: Array[0..2] of Char;
f: TFileStream;
begin
Result := false;
wf[0]:=#$EF;
wf[1]:=#$BB;
wf[2]:=#$BF;
f:= TFileStream.Create(filename, fmCreate);
try
f.Write(wf, 3);
f.Write(PChar(us)^, length(us));
Result := true;
finally
f.Free;
end;
end;
參考文章: http://delphi.ktop.com.tw/topic.asp?TOPIC_ID=65174