VPF::Узнать дату создания файла c.txt

Berliner

Дата 27.7.2005, 11:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2

Здраствуйте хочу получить дату создания файла(самый простой способ) И примерчик плиз(если можно) типа если дата файла такая как на T DAteTimepicker then ShowMeassage

smile

~FoX~

Дата 27.7.2005, 11:13 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Berliner
Примерно так:

Код


var
 sr: TSearchRec;
 d: TDateTime;
begin
 FindFirst('c:\1.txt', faAnyFile, sr);
 if sr.Time = DateTimePicker1.Date then ShowMeassage('Опачка!');
end;

Это сообщение отредактировал(а) ~FoX~ - 27.7.2005, 11:14

--------------------

…множественность никогда не следует полагать без необходимости…

Poseidon

Дата 27.7.2005, 16:27 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

FileAge

Цитата

FileAge( const FileName: string): Integer - возвращает время создания файла FileName.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Berliner

Дата 28.7.2005, 10:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2

Спасиб за пример! Но фала всеравно не находит хотя он реально существует на C:1.txt в чем ошибка. А FileAge а сейчас буду пробывать

Код


procedure TForm1.Button1Click(Sender: TObject);
var sr:TSearchRec;
    d:TDateTime;

begin
 FindFirst('c:\1.txt',faAnyFile,sr);
 if sr.Time=DatetimePicker1.Date then ShowMessage('ok')

 else ShowMessage('Нету');


 end;

Это сообщение отредактировал(а) Girder - 28.7.2005, 18:35

Berliner

Дата 28.7.2005, 12:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2

Вот получилось

Код


var a:integer;
    s:string;
    d2:TDateTime;
    d3:string;
begin

a:=FileAge('c:\1.txt');
d2:=FileDateToDateTime(a); 
s:=DateTimeToStr(d2); 
//edit1.Text:=s;
s:=Copy(s,1,10);     
//Edit2.Text:=s;
d3:=DateTimeToStr(DateTimePicker1.DateTime); 
//Edit3.Text:=d3;
d3:=Copy(d3,1,10); 
if d3=s then ShowMessage('ok')
else ShowMessage('ненашел');

Это сообщение отредактировал(а) Girder - 28.7.2005, 18:36

Vit

Дата 28.7.2005, 21:38 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

~FoX~ - в конце кода обязательно нужно FindClose, иначе будут утечки памяти

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Quadr0

Дата 28.7.2005, 22:22 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 00:53

Pakshin A. S.

Дата 28.7.2005, 22:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Цитата(Quadr0 @ 28.7.2005, 23:22)

Windows.FindClose или SysUtils.FindClose в зависимости от того как поиск юзаем.

А какой поиск используется в вышеприведенном примере?

Цитата(Berliner @ 28.7.2005, 13:11)

Вот получилось

Может так проще? Точне компактнее?

Код


if DateToStr(FileDateToDateTime(FileAge(filename))) = DateToStr(DateTimePicker1.DateTime)
 then
  ShowMessage(':D')
 else
  ShowMEssage(':(');

Quadr0

Дата 29.7.2005, 02:13 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 00:53

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »