root/trunk/ImportImpl/unit_ImportFB2Thread.pas

Show revision log
 
468479
32
uses
32
uses
33
  Classes,
33
  Classes,
34
  SysUtils,
34
  SysUtils,
 
35
  IOUtils,



35
  unit_WorkerThread,
36
  unit_WorkerThread,



36
  unit_globals,
37
  unit_globals,



37
  FictionBook_21,
38
  FictionBook_21,


...
...
62
    R.Clear;
63
    R.Clear;



63
    FileName := ExtractFileName(FFiles[i]);
64
    FileName := ExtractFileName(FFiles[i]);



64
    R.FileExt := ExtractFileExt(FileName);
65
    R.FileExt := ExtractFileExt(FileName);



65
    R.FileName := ExtractShortFilename(FileName);
66
    R.FileName := TPath.GetFileNameWithoutExtension(FileName);



66
67



67
    R.Size := unit_Helpers.GetFileSize(FFiles[i]);
68
    R.Size := unit_Helpers.GetFileSize(FFiles[i]);



68
    R.Date := Now;
69
    R.Date := Now;