Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c