Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.08.27;
Скачать: CL | DM;

Вниз

Date change of File s   Найти похожие ветки 

 
ronyn   (2006-07-27 20:38) [0]

Сравниваю даты создания файлов вот так:
if fileexists(sn3+searchrec.Name) then   begin     //если файл существует то
                  sw:=(oldstartdir+searchrec.Name);                // вот тут надо пишет Делфи тип string и TSearchRec  привести
                  so:=(startdir+searchrec.Name);             // и тут тоже, хотя searchrec.NAME имеет тип TFileName
            if sw.Time>so.Time then begin deletefile(so);          //если дата создания первого позже даты создания второго
                                          copyfile(sw,so,1);          //то действия....
                                    end;

Собсно, какие ошибки? Как типы привести (TSearchRec и String)?
Есть лучший способ сравнить даты редактирования (создания) файлов?

                        Заранее благодарен.


 
Джо ©   (2006-07-28 04:59) [1]

> Собсно, какие ошибки?

Форматирование кода. От него голова болит.

П.С. Знаю, что придирка, но с оглядкой на "Протчее".


 
Думкин ©   (2006-07-28 05:25) [2]

sw & so  - типа тоже строки или весьма крутые объекты со свойством присваивать при присвоении строки весь объект со всеми настроенными свойствами?


 
lexer ©   (2006-07-28 10:16) [3]

sw, so: string;

if FileExists(sn3 + searchrec.Name) then
begin
 sw:=(oldstartdir + searchrec.Name);              
 so:=(startdir + searchrec.Name);
 if FileAge(sw) > FileAge(so) then
   CopyFile(PAnsiChar(sw), PAnsiChar(so), 0);
end;


 
ronyn   (2006-07-29 00:49) [4]

Спасибо!



Страницы: 1 вся ветка

Текущий архив: 2006.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
3-1150833605
Glivera
2006-06-21 00:00
2006.08.27
Корректное закрытие Excel


2-1154706686
Ivolg
2006-08-04 19:51
2006.08.27
Сокеты


2-1154705644
Mr tray
2006-08-04 19:34
2006.08.27
cos(1/2*pi)=-4.3711388287e-08


1-1152715844
oleggar
2006-07-12 18:50
2006.08.27
автоматизация Paint или другой путь ?


15-1153207818
novoalex
2006-07-18 11:30
2006.08.27
FreeBSD