From 3ed9ded4d64fd87ca41fd929ba91973dbdd62383 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 24 Jun 2008 18:29:34 +0000
Subject: [PATCH] Save unicode instead of ansi in "Save memo to textfile"
 action

---
 source/childwin.pas | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/source/childwin.pas b/source/childwin.pas
index 6692bda5..7d010524 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -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;