Blood_Magic » 27 май 2007, 21:35
Yura_ua писал(а):А теперь ещё одна проблема: если перед ListBox1.Items.Add я проверяю расширение файла, то не работает ничего. Вот что я пробовал:
if SearchRec.name='*.bmp' then listBox1.Items.Add(SearchRec.Name);
Насколько я понял, это не правильно. ВВВ, может вы меня не поняли: меня смущают не ненужные файлы, а файлы с ненужным расширением.
1. if Copy(SearchRec.name,Length(SearchRec.name)-3,MaxInt)='.bmp' then listBox1.Items.Add(SearchRec.Name);
2. твоя конструкция
FindRes:=FindFirst(Path+'*.*',faAnyFile,SearchRec);
будет искать только папки вида "Wiвs.TP", а они че часты
, короче говоря ты врятли найдешь вложенные папки
[quote="Yura_ua"]А теперь ещё одна проблема: если перед ListBox1.Items.Add я проверяю расширение файла, то не работает ничего. Вот что я пробовал:
if SearchRec.name='*.bmp' then listBox1.Items.Add(SearchRec.Name);
Насколько я понял, это не правильно. ВВВ, может вы меня не поняли: меня смущают не ненужные файлы, а файлы с ненужным расширением.[/quote]
1. if Copy(SearchRec.name,Length(SearchRec.name)-3,MaxInt)='.bmp' then listBox1.Items.Add(SearchRec.Name);
2. твоя конструкция
FindRes:=FindFirst(Path+'*.*',faAnyFile,SearchRec);
будет искать только папки вида "Wiвs.TP", а они че часты ;) , короче говоря ты врятли найдешь вложенные папки