Delphi-Quellcode:
procedure SaveToUTF16(const Filename: string; Content: TWideStrings);
var
BOM: TBytes;
Stream : TFileStream;
Zeile : WideString;
begin
Zeile := Content.Text;
Stream := TFileStream.Create(Filename, fmCreate);
try
BOM := TBytes.Create($FF, $FE);
Stream.WriteBuffer(BOM[0], Length(BOM));
Stream.WriteBuffer(Zeile[1], Length(Zeile)*Sizeof(Zeile[1]));
finally
Stream.Free;
end;
end;
DANKE!!!! Das hat geholfen, wobei ich das inhaltlich immer noch nicht verstehe. Doch ich kann das Programm nun wieder in Kombination mit dem Konverter einsetzen ohne manuell per Editor den Dateiinhalt mit einer anderen Codierung abspeichern zu müssen.
Viele Grüße
Ingo