Changeset 119 for oup/current
- Timestamp:
- Mar 23, 2007, 1:58:41 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
oup/current/DataAccess/Access_OUP_ADB.pas
r116 r119 19 19 20 20 function GetLinksToFile(FileID: Integer): TLinks; 21 function GetLinksFromFile(FileID: Integer): TLinks;22 21 23 22 function GetFileInfo(FileID: Integer): TFileInfo; override; … … 187 186 Result.ByID[i].SrcOffset := FQuery.FieldByName('src_link_offset').AsInteger; 188 187 Result.ByID[i].Destination := FQuery.FieldByName('src_id').AsInteger; 189 Inc(i);190 FQuery.Next;191 until FQuery.EOF;192 end;193 FQuery.Close;194 end;195 196 function TAccess_OUP_ADB.GetLinksFromFile(FileID: Integer): TLinks;197 var198 i: Integer;199 begin200 SetLength(Result.ByName, 0);201 FQuery.SQL.Text := 'SELECT src_link_offset, target_id FROM linkmap WHERE src_id = ' + IntToStr(FileID) + ' ORDER BY target_id ASC;';202 FQuery.Open;203 SetLength(Result.ByID, FQuery.RecordCount);204 if FQuery.RecordCount > 0 then205 begin206 i := 0;207 repeat208 Result.ByID[i].SrcOffset := FQuery.FieldByName('src_link_offset').AsInteger;209 Result.ByID[i].Destination := FQuery.FieldByName('target_id').AsInteger;210 188 Inc(i); 211 189 FQuery.Next;
Note:
See TracChangeset
for help on using the changeset viewer.