| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Дата создания файла - сравнить [D7, WinXP]
ronyn © (2006-07-27 23:02:00)Сравниваю даты создания файлов вот так:
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)?
Есть лучший способ сравнить даты редактирования (создания) файлов?
Заранее благодарен.
<Цитата>
Kolan (2006-07-29 01:01:00) [1]Как выяснить дату последнего изменения файла?
function GetFileDate(FileName: string): string;
var FHandle: Integer;
begin
FHandle := FileOpen(FileName, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;
end;
Взято с сайта http://blackman.wp-club.net/
А в хелпе:
Related Information
SysUtils.FileSetDate
SysUtils.FileDateToDateTime
SysUtils.FileAge
SysUtils.FileExists
Германн (2006-07-29 00:54:00) [2]
> Таки ввопрос не в удобстве, а в том - как сравнить даты
> создания файлов?
Таки ты до сих пор не ответил на
> KilkennyCat © (27.07.06 23:06) [1]
>
> Из чистого любопытсва: sw, so - чаво?
Т.е. пока тут нет ничего, кроме словоблудия
ronyn (2006-07-29 00:38:00) [3]///
Таки ввопрос не в удобстве, а в том - как сравнить даты создания файлов?
Джо (2006-07-28 05:52:00) [4]> [3] ronyn (27.07.06 23:45)
> для удобства имя директорий так обозначил. sn3 - имя директории
Для удобства имя директории обозначают так: DirectoryName.
Kolan (2006-07-28 00:32:00) [5]
> для удобства
Дааа.
ronyn (2006-07-27 23:45:00) [6]для удобства имя директорий так обозначил. sn3 - имя директории
KilkennyCat (2006-07-27 23:07:00) [7]и sn3 заодно
KilkennyCat (2006-07-27 23:06:00) [8]Из чистого любопытсва: sw, so - чаво?
| |
