From f7ad90cd408f0f3d7955f8287fe76affd127adff Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 17 Jun 2008 19:16:11 +0000
Subject: [PATCH] Add helper "SaveUnicodeFile"

---
 source/helpers.pas | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/source/helpers.pas b/source/helpers.pas
index a095416c..3cf83df5 100644
--- a/source/helpers.pas
+++ b/source/helpers.pas
@@ -92,6 +92,7 @@ type
   function GetTempDir: String;
   function GetDBObjectType( TableStatus: TFields ): Byte;
   procedure SetWindowSizeGrip(hWnd: HWND; Enable: boolean);
+  procedure SaveUnicodeFile(Filename: String; Text: WideString);
 
 var
   MYSQL_KEYWORDS             : TStringList;
@@ -2352,6 +2353,26 @@ begin
 end;
 
 
+{**
+  Save a textfile with unicode
+}
+procedure SaveUnicodeFile(Filename: String; Text: WideString);
+var
+  f: TFileStream;
+  header: array[0..1] of Byte;
+begin
+  header[0] := $FF;
+  header[1] := $FE;
+  f := TFileStream.Create(Filename, fmCreate or fmOpenWrite);
+  try
+    f.WriteBuffer(header, 2);
+    f.WriteBuffer(Pointer(Text)^, Length(Text) * 2);
+  finally
+    f.Free;
+  end;
+end;
+
+
 initialization