Changeset 119 for oup/current/DataAccess

Timestamp:

Mar 23, 2007, 1:58:41 AM (18 years ago)

Author:

alloc

Message:

 

File:

• oup/current/DataAccess/Access_OUP_ADB.pas (modified) (2 diffs)

oup/current/DataAccess/Access_OUP_ADB.pas

@@ -19 +19 @@
 
     function GetLinksToFile(FileID: Integer): TLinks;
-    function GetLinksFromFile(FileID: Integer): TLinks;
 
     function GetFileInfo(FileID: Integer): TFileInfo; override;
@@ -187 +186 @@
       Result.ByID[i].SrcOffset := FQuery.FieldByName('src_link_offset').AsInteger;
       Result.ByID[i].Destination := FQuery.FieldByName('src_id').AsInteger;
-      Inc(i);
-      FQuery.Next;
-    until FQuery.EOF;
-  end;
-  FQuery.Close;
-end;
-
-function TAccess_OUP_ADB.GetLinksFromFile(FileID: Integer): TLinks;
-var
-  i: Integer;
-begin
-  SetLength(Result.ByName, 0);
-  FQuery.SQL.Text := 'SELECT src_link_offset, target_id FROM linkmap WHERE src_id = ' + IntToStr(FileID) + ' ORDER BY target_id ASC;';
-  FQuery.Open;
-  SetLength(Result.ByID, FQuery.RecordCount);
-  if FQuery.RecordCount > 0 then
-  begin
-    i := 0;
-    repeat
-      Result.ByID[i].SrcOffset := FQuery.FieldByName('src_link_offset').AsInteger;
-      Result.ByID[i].Destination := FQuery.FieldByName('target_id').AsInteger;
       Inc(i);
       FQuery.Next;