opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Issue #140: As a complement to writing tab backups in UTF8 without BOM, now load them in this encoding, not in UTF8 with BOM

Browse Source 
* see deab98736ed591b1aeb6a229de1ddf06e9f43a42
* see https://www.heidisql.com/forum.php?t=35551
This commit is contained in:
Ansgar Becker
2020-02-20 09:35:45 +01:00
parent b128224bee
commit 88c3560e6e
2 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
source/apphelpers.pas
View File

@ -378,6 +378,7 @@ var
ConfirmIcon: TIcon;
NumberChars: TSysCharSet;
LibHandleUser32: THandle;
UTF8NoBOMEncoding: TUTF8NoBOMEncoding;
implementation
@ -1112,13 +1113,10 @@ end;
procedure SaveUnicodeFile(Filename: String; Text: String);
var
Writer: TStreamWriter;
Enc: TEncoding;
begin
Enc := TUTF8NoBOMEncoding.Create;
Writer := TStreamWriter.Create(Filename, False, Enc);
Writer := TStreamWriter.Create(Filename, False, UTF8NoBOMEncoding);
Writer.Write(Text);
Writer.Free;
Enc.Free;
end;
@ -4305,6 +4303,7 @@ NumberChars := ['0'..'9', FormatSettings.DecimalSeparator, FormatSettings.Thousa
LibHandleUser32 := LoadLibrary('User32.dll');
UTF8NoBOMEncoding := TUTF8NoBOMEncoding.Create;
end.