Поиск в поиске

← →
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 символа

Finded := FindFirst(SourcePath + "*home*.txt", faAnyFile, SR); if Copy(SR.Name, Length(Finded) - 8, 4) = 2006 then ListView.Items[i].SubItems[1]:= "Новый";

Верно?

Поиск в поиске Найти похожие ветки