|
@@ -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
|