Главная страница
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.026 c
1-1151961973
Tonich
2006-07-04 01:26
2006.08.27
Создание обекта в потоке (Thread)


2-1154704534
Klever
2006-08-04 19:15
2006.08.27
количество строк таблицы DBGrid


2-1154950983
van_der_alex
2006-08-07 15:43
2006.08.27
простые вопросы по dataset


1-1153124134
wezzz
2006-07-17 12:15
2006.08.27
Как в excel записать данные в столбец Х (по порядковому номеру!)


9-1133300445
Кефир87
2005-11-30 00:40
2006.08.27
OpenGL : Рендер в текстуру