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

* fileno

Browse Source
This commit is contained in:
marco 2004-05-01 11:04:34 +00:00
parent f40e1dc255
commit b82160ba33
2 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/sysutils/filutilh.inc
View File

@ -84,10 +84,15 @@ Function RenameFile (Const OldName, NewName : String) : Boolean;
Function FileSearch (Const Name, DirList : String) : String;
Function FileIsReadOnly(const FileName: String): Boolean;
Function FileNo(var f : File):Longint;
Function FileNo(var f : Text):Longint;
{
$Log$
Revision 1.3 2004-04-28 20:48:20 peter
Revision 1.4 2004-05-01 11:04:34 marco
* fileno
Revision 1.3 2004/04/28 20:48:20 peter
* ordinal-pointer conversions fixed
Revision 1.2 2004/02/08 14:50:51 michael

16
rtl/objpas/sysutils/fina.inc
View File

@ -236,9 +236,23 @@ begin
Result:=(Index>0) and (Index<=Length(Path)) and (Path[Index]=PathDelim);
end;
Function FileNo(var f : File):Longint;
begin
result:=filerec(f).handle;
end;
Function FileNo(var f : Text):Longint;
begin
result:=textrec(f).handle;
end;
{
$Log$
Revision 1.1 2003-10-06 21:01:06 peter
Revision 1.2 2004-05-01 11:04:34 marco
* fileno
Revision 1.1 2003/10/06 21:01:06 peter
* moved classes unit to rtl
Revision 1.10 2003/09/06 21:52:24 marco