root/trunk/ImportImpl/unit_ImportFB2ZIPThread.pas

Show revision log
 
470479
41
uses
41
uses
42
  Classes,
42
  Classes,
43
  SysUtils,
43
  SysUtils,
 
44
  IOUtils,



44
  unit_WorkerThread,
45
  unit_WorkerThread,



45
  unit_Consts,
46
  unit_Consts,



46
  unit_Settings,
47
  unit_Settings,


...
...
146
              Continue;
147
              Continue;



147
            end;
148
            end;



148
149



149
            R.FileName := ExtractShortFilename(AFileName);
150
            R.FileName := TPath.GetFileNameWithoutExtension(AFileName);



150
            R.Size := ArchiveItem.UncompressedSize;
151
            R.Size := ArchiveItem.UncompressedSize;



151
            R.InsideNo := j;
152
            R.InsideNo := j;



152
            R.Date := Now;
153
            R.Date := Now;