Форум: "Прочее";
Текущий архив: 2006.08.27;
Скачать: [xml.tar.bz2];
Вниз
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.036 c
