Текущий архив: 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.043 c
