Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Дату последнего изменения БД в Caption [D7, Paradox]

Starcom © (2005-07-05 20:43:00)
Привет Мастера!

У меня такой вопрос >>>

Хочу в программе работающей с БД (Paradox)
при обращении к Table выводилось следующее
в Form1.Caption Дату последнего изменения БД.

нашел в каком то Faq'e и пишу так:
Form1.Caption:= 'Последнее изменение базы: '+GetFileDate('\MyBase\Base.db');

Компилятор ругается так:
[Error] Unit1.pas(62): Undeclared identifier: 'GetFileDate'

Что я не за декларировал и где именно в коде?

С Уважением Starcom! ;-()

Johnmen (2005-07-07 10:47:00) [1]
Зачем так закручивать ???
Если бы ты заглянул в F1 и посмотрел Example, то увидел бы, что всё, что тебе нужно, это
Result:=FileDateToDateTime(FileAge(FileName));
и всё !!!

Starcom (2005-07-06 22:46:00) [2]
Johnmen © (05.07.05 20:56) [1]

Всё что я понял об DateTimeToStr и из прошлых топиков...
но получилось так:

function GetFDateA(FileName:String): Double;
var
FD:TWIN32FindData;
D:Integer;
FileTime, LocalFileTime: TFileTime;
begin
Result:=0;
if not Fileexists (FileName) then exit;
Windows.FindFirstFile(PChar(FileName),FD);
FileTime:=Fd.ftLastWriteTime;
FileTimeToLocalFileTime(FileTime, LocalFileTime);
FileTimeToDosDateTime(LocalFileTime, LongRec(D).Hi,LongRec(D).Lo);
Result:=FileDateToDateTime (D);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:='Последнее изменение базы: '+(DateTimeToStr( GetFDateA ('.\MyBase\Base.db')));
end;

С Уважением Starcom! :{

Starcom (2005-07-06 19:11:00) [3]
Удалено модератором
Примечание: Создание пустых сообщений

Starcom (2005-07-05 22:12:00) [4]
Johnmen © (05.07.05 20:56) [1]

Посмотрел ... нифига не понял!

А поподробнее нельзя?

С Уважением Starcom! 8-(

Johnmen (2005-07-05 20:56:00) [5]
Что за факи ты смотришь, непонятно...Чушь какая-то...
См. FileDateToDateTime+F1

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »