paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-20 10:12:52 +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 fileeof: boolean; override;
function fileclose: boolean; override;
procedure filegettime; override;
private
Editor: PFileEditor;
S: PStream;
@ -1253,6 +1254,17 @@ begin
fileclose:=OK;
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;
begin
{$ifndef NOOBJREG}
@ -1265,7 +1277,10 @@ end;
end.
{
$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
Revision 1.33 2004/11/22 19:34:58 peter