paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* running ex9.pp fixed

Browse Source
This commit is contained in:
marco 2004-07-18 09:49:19 +00:00
parent 7fb5f2cf1f
commit 9f87239209
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
docs/dosex/ex9.pp
View File

@ -19,7 +19,10 @@ var
Time : Longint; Time : Longint;
DT : DateTime; DT : DateTime;
begin begin
Assign(f,ParamStr(1)); if Paramcount>0 then
Assign(f,ParamStr(1))
else
Assign(f,'ex9.pp' );
Reset(f); Reset(f);
GetFTime(f,Time); GetFTime(f,Time);
Close(f); Close(f);