Browse Source

* fileno -> getfilehandle

marco 21 years ago
parent
commit
5af746ce28
2 changed files with 12 additions and 6 deletions
  1. 6 3
      rtl/objpas/sysutils/filutilh.inc
  2. 6 3
      rtl/objpas/sysutils/fina.inc

+ 6 - 3
rtl/objpas/sysutils/filutilh.inc

@@ -84,12 +84,15 @@ Function RenameFile (Const OldName, NewName : String) : Boolean;
 Function FileSearch (Const Name, DirList : String) : String;
 Function FileSearch (Const Name, DirList : String) : String;
 Function FileIsReadOnly(const FileName: String): Boolean; 
 Function FileIsReadOnly(const FileName: String): Boolean; 
 
 
-Function FileNo(var f : File):Longint;
-Function FileNo(var f : Text):Longint;
+Function GetFileHandle(var f : File):Longint;
+Function GetFileHandle(var f : Text):Longint;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.4  2004-05-01 11:04:34  marco
+  Revision 1.5  2004-05-01 11:56:25  marco
+   * fileno -> getfilehandle
+
+  Revision 1.4  2004/05/01 11:04:34  marco
    * fileno
    * fileno
 
 
   Revision 1.3  2004/04/28 20:48:20  peter
   Revision 1.3  2004/04/28 20:48:20  peter

+ 6 - 3
rtl/objpas/sysutils/fina.inc

@@ -236,20 +236,23 @@ begin
   Result:=(Index>0) and (Index<=Length(Path)) and (Path[Index]=PathDelim);
   Result:=(Index>0) and (Index<=Length(Path)) and (Path[Index]=PathDelim);
 end;
 end;
 
 
-Function FileNo(var f : File):Longint;
+Function GetFileHandle(var f : File):Longint;
 
 
 begin
 begin
   result:=filerec(f).handle;
   result:=filerec(f).handle;
 end;
 end;
 
 
-Function FileNo(var f : Text):Longint;
+Function GetFileHandle(var f : Text):Longint;
 begin
 begin
   result:=textrec(f).handle;
   result:=textrec(f).handle;
 end;
 end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2004-05-01 11:04:34  marco
+  Revision 1.3  2004-05-01 11:56:25  marco
+   * fileno -> getfilehandle
+
+  Revision 1.2  2004/05/01 11:04:34  marco
    * fileno
    * fileno
 
 
   Revision 1.1  2003/10/06 21:01:06  peter
   Revision 1.1  2003/10/06 21:01:06  peter