--- oup/current/Code/Functions.pas	2006/12/23 16:26:43	46
+++ oup/current/Code/Functions.pas	2007/01/11 22:45:20	74
@@ -4,9 +4,6 @@ interface
 
 uses Classes, Dialogs, SysUtils, StrUtils, Math, Data;
 
-type
-  TExportSet = set of (DO_dat, DO_raw, DO_convert, DO_toone);
-
 function BoolToStr(bool: Boolean): String;
 function HexToLong(hex: String): LongWord;
 function Decode_Int(buffer: Tdata): LongWord;
@@ -16,9 +13,6 @@ function Encode_Float(input: Single): Td
 function DataToBin(Data: Tdata): String;
 function BinToInt(bin: String): Byte;
 
-function ExportFile(fileid: LongWord; filename: String; settings: TExportSet;
-  path: String): Integer;
-
 function StringSmaller(string1, string2: String): Boolean;
 
 function FormatNumber(Value: LongWord; Width: Byte; leadingzeros: Char): String;
@@ -323,42 +317,6 @@ end;
 
 
 
-
-function ExportFile(fileid: LongWord; filename: String; settings: TExportSet;
-  path: String): Integer;
-var
-  i: Byte;
-  extension: String;
-  rawlist: TRawList;
-begin
-  Result    := export_noerror;
-  extension := RightStr(filename, 4);
-  if DO_toone in settings then
-  begin
-    ExportDatFile(fileid, path + '\' + GetWinFileName(filename));
-  end
-  else
-  begin
-    if DO_dat in settings then
-      ExportDatFile(fileid, path + '\' + GetWinFileName(filename));
-    if DO_raw in settings then
-    begin
-      rawlist := OniDataConnection.GetRawList(fileid);
-      if Length(rawlist) > 0 then
-      begin
-        for i := 0 to High(rawlist) do
-        begin
-          ExportRawFile(fileid, rawlist[i].src_offset, path + '\' +
-            GetWinFileName(filename));
-        end;
-      end;
-    end;
-  end;
-end;
-
-
-
-
 function Explode(_string: String; delimiter: Char): TStringArray;
 var
   start, len: Word;