Скачать: CL | DM;

Дату последнего изменения БД в Caption   Найти похожие ветки 

← →
Starcom   (2005-07-05 20:43) [0]

Привет Мастера!

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

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

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

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

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

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

---

← →
Johnmen ©   (2005-07-05 20:56) [1]

Что за факи ты смотришь, непонятно...Чушь какая-то...
См. FileDateToDateTime+F1

---

← →
Starcom   (2005-07-05 22:12) [2]

Johnmen ©   (05.07.05 20:56) [1]

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

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

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

---

← →
Starcom   (2005-07-06 19:11) [3]

Удалено модератором
Примечание: Создание пустых сообщений

---

← →
Starcom   (2005-07-06 22:46) [4]

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! :{

---

← →
Johnmen ©   (2005-07-07 10:47) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c