Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.01.28;
Скачать: CL | DM;

Вниз

Часть названия файла   Найти похожие ветки 

 
Garacio ©   (2007-01-13 21:38) [0]

Не работает:
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-13 23:11) [1]


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

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


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

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


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


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

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



Страницы: 1 вся ветка

Текущий архив: 2007.01.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.051 c
2-1168593143
vigo_
2007-01-12 12:12
2007.01.28
Вызов переменной из другого Unit a


1-1164875226
Igor_Zal
2006-11-30 11:27
2007.01.28
Тот же Stringgrid


1-1165419214
MJShvedov
2006-12-06 18:33
2007.01.28
Как можно определить параметр ячейки DrawGrid?


15-1168438608
vasIzmax
2007-01-10 17:16
2007.01.28
"...свиные консервы..." :)


3-1162829092
DVM
2006-11-06 19:04
2007.01.28
Как быстро удалить все записи в ADOTable без SQL ?