|
@@ -62,8 +62,6 @@ end;
|
|
|
Procedure FileClose (Handle : Longint);
|
|
|
|
|
|
begin
|
|
|
- if Handle<=4 then
|
|
|
- exit;
|
|
|
fdclose(Handle);
|
|
|
end;
|
|
|
|
|
@@ -285,7 +283,10 @@ end;
|
|
|
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.15 2000-02-17 22:16:05 sg
|
|
|
+ Revision 1.16 2000-03-22 20:00:54 michael
|
|
|
+ + removed handle checkin fileclose
|
|
|
+
|
|
|
+ Revision 1.15 2000/02/17 22:16:05 sg
|
|
|
* Changed the second argument of FileWrite from "var buffer" to
|
|
|
"const buffer", like in Delphi.
|
|
|
|