root/trunk/Units/unit_Database.pas
Download diff| 474 | 479 | ||
|---|---|---|---|
97 | 97 | ||
98 | uses | 98 | uses |
99 | SysUtils, | 99 | SysUtils, |
100 | IOUtils, | ||
100 | bdeconst, | 101 | bdeconst, |
101 | unit_Consts; | 102 | unit_Consts; |
102 | 103 | ||
... | ... | ||
721 | if FullNameSearch then | 722 | if FullNameSearch then |
722 | S := ExtractFileName(FileName) | 723 | S := ExtractFileName(FileName) |
723 | else | 724 | else |
724 | S := ExtractShortFileName(ExtractFileName(FileName)); | 725 | S := TPath.GetFileNameWithoutExtension(FileName); |
725 | Result := FBooks.Locate(FILENAME_FIELD, S, [loCaseInsensitive]); | 726 | Result := FBooks.Locate(FILENAME_FIELD, S, [loCaseInsensitive]); |
726 | end; | 727 | end; |
727 | end; | 728 | end; |