ipv opslaan via memo zelf:
Delphi Code:
const
UTF8BOM: array[0..2] of Byte = ($EF, $BB, $BF);
var
UTF8Str: UTF8String;
FS: TFileStream;
begin
UTF8Str := UTF8Encode(Memo1.Text);
FS := TFileStream.Create('C:\path to\file.txt', fmCreate);
try
FS.WriteBuffer(UTF8BOM[0], SizeOf(UTF8BOM));
FS.WriteBuffer(PAnsiChar(UTF8Str)^, Length(UTF8Str));
finally
FS.Free;
end;
end;
deze oplossing heb ik hier gevonden:
stackoverflow.com
Voor zover ik weet gebruikt delphi vanaf D2010 widestrings (utf-16). Deze zal hierdoor standaard als widestring opslaan vermoed ik?
Bookmarks