Текущий архив: 2007.01.28;
Скачать: CL | DM;
Вниз
Поиск в поиске Найти похожие ветки
← →
Garacio © (2007-01-13 15:01) [0]У меня в папке находятся файлы с названиями: 2home_12.03.2006, home_16.08.2005 и т.п. Я произвожу поиск по названию:
Finded := FindFirst(SourcePath + "*home*.txt", faAnyFile, SR);
Как из полученного таким образом SR.Name достать дату, и если 2006 - то в третью графу ListView поместить слово "Новый", если 2005 и ранее - то "Старый"?
← →
Savek (2007-01-13 17:12) [1]DateStr:=Copy(SR.Name,Length(Finded)-14,10);
YearStr:=Copy(SR.Name,Length(Finded)-8,4);
при условии что дата занимает 10 символов + .txt еще 4 символа
← →
Garacio © (2007-01-13 17:21) [2]
Finded := FindFirst(SourcePath + "*home*.txt", faAnyFile, SR);
if Copy(SR.Name, Length(Finded) - 8, 4) = 2006
then ListView.Items[i].SubItems[1]:= "Новый";
Верно?
Страницы: 1 вся ветка
Текущий архив: 2007.01.28;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.065 c
