opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Save unicode instead of ansi in "Save memo to textfile" action

Browse Source
This commit is contained in:
Ansgar Becker
2008-06-24 18:29:34 +00:00
parent 7219960e50
commit 3ed9ded4d6
1 changed files with 1 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/childwin.pas
View File

@@ -3557,7 +3557,6 @@ end;
procedure TMDIChild.btnBlobSaveClick(Sender: TObject);
var
bf: Textfile;
grid: TTntDBGrid;
begin
// Todo: Weird fix, we probably shouldn't even be showing the button in the first place.
@@ -3586,12 +3585,7 @@ begin
if execute then try
Screen.Cursor := crHourGlass;
case pageCtlEditors.ActivePageIndex of
0 : begin
AssignFile(bf, filename);
Rewrite(bf);
Write(bf, GetVisualDataset().FieldByName(DBMemo1.DataField).AsString);
CloseFile(bf);
end;
0 : SaveUnicodeFile(filename, GetVisualDataset.FieldByName(DBMemo1.DataField).AsWideString );
1 : EDBImage1.Picture.SaveToFile(filename);
end;
Screen.Cursor := crDefault;