paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-21 18:04:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* implement tinputfile.getfiletime

Browse Source
This commit is contained in:
peter 2005-02-10 20:57:02 +00:00
parent f2c5cdc3ee
commit 1bb0a6373f
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/fpcompil.pas
View File

@ -89,6 +89,7 @@ type
function fileread(var databuf; maxsize: longint): longint; override; function fileread(var databuf; maxsize: longint): longint; override;
function fileeof: boolean; override; function fileeof: boolean; override;
function fileclose: boolean; override; function fileclose: boolean; override;
procedure filegettime; override;
private private
Editor: PFileEditor; Editor: PFileEditor;
S: PStream; S: PStream;
@ -1253,6 +1254,17 @@ begin
fileclose:=OK; fileclose:=OK;
end; end;
procedure tfpinputfile.filegettime;
var
dt : datetime;
hsec,wday : word;
begin
{ current time }
dos.getdate(dt.year,dt.month,dt.day,wday);
dos.gettime(dt.hour,dt.min,dt.sec,hsec);
packtime(dt,filetime);
end;
procedure RegisterFPCompile; procedure RegisterFPCompile;
begin begin
{$ifndef NOOBJREG} {$ifndef NOOBJREG}
@ -1265,7 +1277,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.34 2005-01-08 12:05:13 florian Revision 1.35 2005-02-10 20:57:02 peter
* implement tinputfile.getfiletime
Revision 1.34 2005/01/08 12:05:13 florian
* user screen parsing fixed * user screen parsing fixed
Revision 1.33 2004/11/22 19:34:58 peter Revision 1.33 2004/11/22 19:34:58 peter