| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Часть названия файла

Garacio ©   (2007-01-13 21:38:00) 

Не работает:
for g:=0 to ListView1.Items.Count-1 do
 begin
  slovo:= ListView1.Items.Item[g].Caption;
  Finded := FindFirst(Edit.Text+'\'+slovo+'*.dll', faAnyFile,
  SearchRec);
  if not ((SearchRec.Name = '.') or (SearchRec.Name = '..')) then
   begin
    if  Copy(SearchRec.Name, Length(SearchRec.Name) - 8, 8) = '2006.dll'
    then ListView1.Items[g].SubItems.add('Новый');
    PanelOtchet.Caption:=PChar(SearchRec.Name); {пишет 2work_12.03.2006.dll - как положено!}
    Application.ProcessMessages; //пауза для отчёта НУЖНО или НЕТ???
   end;
   Finded := FindNext(SearchRec);
end;
Во второй колонке ListView ничего не появляется!

---

Dmitrij_K   (2007-01-14 12:31:00) [1]

> Garacio ©   (14.01.07 11:40) [2]
> ТОЧНО!!! Как догадался?

Телепатор подсказал

---

Garacio   (2007-01-14 11:40:00) [2]

ТОЧНО!!! Как догадался?

---

Dmitrij_K   (2007-01-13 23:11:00) [3]

> Во второй колонке ListView ничего не появляется!

Значит условие if Copy(SearchRec.Name, ...не срабатывает.
Может надо ...-7, 8)=?

---

Наверх