Fix broken UTF8 export files

This commit is contained in:
Ansgar Becker
2010-01-06 00:50:17 +00:00
parent 882a2b9995
commit 0106ee3b4f

View File

@ -1315,7 +1315,7 @@ end;
}
procedure StreamWrite(S: TStream; Text: WideString = '');
var
utf8: string;
utf8: AnsiString;
begin
utf8 := Utf8Encode(Text);
S.Write(utf8[1], Length(utf8));