Форум: "Базы";
Текущий архив: 2005.08.14;
Скачать: [xml.tar.bz2];
ВнизДату последнего изменения БД в 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 вся ветка
Форум: "Базы";
Текущий архив: 2005.08.14;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c