ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/DataAccess/Access_OUP_ADB.pas
(Generate patch)

Comparing oup/current/DataAccess/Access_OUP_ADB.pas (file contents):
Revision 112 by alloc, Thu Feb 22 00:37:39 2007 UTC vs.
Revision 113 by alloc, Sun Feb 25 17:20:22 2007 UTC

# Line 31 | Line 31 | type
31      procedure LoadDatFilePart(FileID, Offset, Size: Integer; var Target: TStream); overload; override;
32      procedure UpdateDatFilePart(FileID, Offset, Size: Integer; Src: TStream); overload; override;
33  
34 +    function GetDatLinks(FileID: Integer): TDatLinkList; override;
35      function GetRawList(FileID: Integer): TRawDataList; override;
36      function GetRawInfo(FileID, DatOffset: Integer): TRawDataInfo; override;
37  
# Line 55 | Line 56 | uses
56  
57  
58   constructor TAccess_OUP_ADB.Create(DBFilename: String; ConnectionID: Integer; var Msg: TStatusMessages);
58 – var
59 –  i: Integer;
59   begin
60    Msg := SM_UnknownError;
61    if not FileExists(DBFilename) then
# Line 141 | Line 140 | begin
140        Fdat_files[i].Name := FQuery.FieldByName('name').AsString;
141        Fdat_files[i].Extension := FQuery.FieldByName('extension').AsString;
142        Fdat_files[i].Size := FQuery.FieldByName('size').AsInteger;
143 <      Fdat_files[i].FileType := HexToLong(FQuery.FieldByName('contenttype').AsString);
143 >      Fdat_files[i].FileType := StrToInt('$'+FQuery.FieldByName('contenttype').AsString);
144        Fdat_files[i].DatAddr := 0;
145        Inc(i);
146        FQuery.Next;
# Line 293 | Line 292 | begin
292        end;
293      end;
294    end;
295 <  Result := TStringList.Create;
295 >  if not Assigned(Result) then
296 >    Result := TStringList.Create;
297    if list.Count > 0 then
298    begin
299      fields := TStringList.Create;
# Line 327 | Line 327 | function TAccess_OUP_ADB.GetExtensionsLi
327   var
328    i: Integer;
329   begin
330 <  Result := TStringList.Create;
330 >  if not Assigned(Result) then
331 >    Result := TStringList.Create;
332 >  if Result is TStringList then
333 >    TStringList(Result).Sorted := True;
334    for i := 0 to Length(Fdat_extensionsmap) - 1 do
335    begin
336      with Fdat_extensionsmap[i] do

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)