Главная страница
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.042 c
9-1133367552
Mak55
2005-11-30 19:19
2006.08.27
Не по теме немного. Поделитесь пожалуйста кодами прохождения для


6-1143915350
NKVDwnik
2006-04-01 22:15
2006.08.27
Отправка почты


9-1133475863
wow
2005-12-02 01:24
2006.08.27
Движок на OpenGL


15-1153830461
SergejV
2006-07-25 16:27
2006.08.27
Компонент блокнота с нумерацией строк


4-1146597197
err0rFrost
2006-05-02 23:13
2006.08.27
изменение темы рабочего стола в ХР