Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.029 c
15-1168276887
ZiTRaX
2007-01-08 20:21
2007.01.28
Какие авторы считаются лучшими???


15-1167920399
vidiv
2007-01-04 17:19
2007.01.28
Движок для чата


11-1127366651
TRUF
2005-09-22 09:24
2007.01.28
Drag&Drop


15-1168381558
SkyRanger
2007-01-10 01:25
2007.01.28
Урезанный редактор D6 Personal


15-1168500105
@!!ex
2007-01-11 10:21
2007.01.28
Черно-белый сигнал с SVideo