---------------------------------------------------------------------------
| 1677 | } |
| 1678 | //--------------------------------------------------------------------------- |
| 1679 | void __fastcall FindFiles(TStrings * p, String dir, String mask) |
| 1680 | { |
| 1681 | TSearchRec sr; |
| 1682 | if( FindFirst(IncludeTrailingBackslash(dir) + mask, faAnyFile, sr)==0 ) |
| 1683 | { |
| 1684 | // ������ ���� ������ |
| 1685 | do |
| 1686 | { |
| 1687 | p->Add(sr.Name); |
| 1688 | } |
| 1689 | while( FindNext(sr)==0 ); |
| 1690 | } |
| 1691 | FindClose(sr); |
| 1692 | } |
| 1693 | //--------------------------------------------------------------------------- |
| 1694 | String __fastcall GetRecommendedPath(bool common, String folder, String def) |
| 1695 | { |