root/trunk/Forms/frm_add_nonfb2.pas

Show revision log
 
469479
172
implementation
172
implementation
173
173



174
uses
174
uses



175
  IOUtils,



175
  dm_user,
176
  dm_user,



176
  frm_main,
177
  frm_main,



177
  frm_genre_tree,
178
  frm_genre_tree,


...
...
583
    Exit;
584
    Exit;



584
585



585
  FullName := ExtractRelativePath(FRootPath, flFiles.LastDir + F.Name);
586
  FullName := ExtractRelativePath(FRootPath, flFiles.LastDir + F.Name);



586
  FileName := ExtractShortFileName(F.Name);
587
  FileName := TPath.GetFileNameWithoutExtension(F.Name);



587
  Path := ExtractRelativePath(FRootPath, flFiles.LastDir);
588
  Path := ExtractRelativePath(FRootPath, flFiles.LastDir);



588
589



589
  ParentNode := FindParentInTree(Tree, Path);
590
  ParentNode := FindParentInTree(Tree, Path);