Changeset 92 for oup/current/Code/OniDataClass.pas

Timestamp:

Jan 16, 2007, 12:35:04 AM (18 years ago)

Author:

alloc

Message:

Rev86 was first after multi-cons

File:

• oup/current/Code/OniDataClass.pas (modified) (5 diffs)

oup/current/Code/OniDataClass.pas

@@ -136 +136 @@
   end;
 
-  TOniDataEmpty = class(TOniData)
-  private
-  protected
-  public
-    constructor Create(OLDBFilename: String; var Result: Boolean); override;
-    procedure Close; override;
-  published
-  end;
+
 
 const
@@ -151 +144 @@
 
 var
-//  OniDataConnection: TOniData;
   DataConnections: array of TOniData;
-  OniDataConnection: TOniData;
 
 function CreateDataConnection(filename: String; backend: Integer): TOniData;
+function ConnectionExists(filename: String): TOniData;
 procedure CloseDataConnection(connection: TOniData);
 function GetEmptyFileInfo: TFileInfo;
@@ -213 +205 @@
   Result.raw_addr := 0;
   Result.raw_size := 0;
-  for i := 0 to High(raw_list) do
-  begin
-    if raw_list[i].src_offset = dat_offset then
-    begin
-      Result.src_id     := fileid;
-      Result.src_offset := raw_list[i].src_offset;
-      Result.raw_addr   := raw_list[i].raw_addr;
-      Result.raw_size   := raw_list[i].raw_size;
-      Result.loc_sep    := raw_list[i].loc_sep;
-      Break;
+  if Length(raw_list) > 0 then
+  begin
+    for i := 0 to High(raw_list) do
+    begin
+      if raw_list[i].src_offset = dat_offset then
+      begin
+        Result.src_id     := fileid;
+        Result.src_offset := raw_list[i].src_offset;
+        Result.raw_addr   := raw_list[i].raw_addr;
+        Result.raw_size   := raw_list[i].raw_size;
+        Result.loc_sep    := raw_list[i].loc_sep;
+        Break;
+      end;
     end;
   end;
@@ -1466 +1461 @@
 
 
+function ConnectionExists(filename: String): TOniData;
+var
+  i: Integer;
+begin
+  Result := nil;
+  if Length(DataConnections) > 0 then
+    for i := 0 to High(DataConnections) do
+      if DataConnections[i].FFileName = filename then
+      begin
+        Result := DataConnections[i];
+        Exit;
+      end;
+end;
 
 
@@ -1513 +1521 @@
 
 
-
-
-constructor TOniDataEmpty.Create(OLDBFilename: String; var Result: Boolean);
-var
-  i, j:  Byte;
-  temps: String;
-begin
-  ShowMessage('OLD');
-end;
-
-procedure TOniDataEmpty.Close;
-begin
-  ShowMessage('OLD');
-end;
-
 end.