[Overview][Constants][Types][Procedures and functions][Variables][Index] Reference for unit 'oldlinux' (#rtl)

GetFS

Return file selector

Declaration

Source position: line 0

function GetFS(

  var T: Text

):LongInt;

function GetFS(

  var F: file

):LongInt;

Description

GetFS returns the file selector that the kernel provided for your file. In principle you don' need this file selector. Only for some calls it is needed, such as the Select call or so.

Errors

In case the file was not opened, then -1 is returned.

See also

Select

  

Wait for events on file descriptors

Example

Program Example33;

{ Program to demonstrate the SelectText function. }

Uses oldlinux;

Var tv : TimeVal;

begin
  Writeln ('Press the <ENTER> to continue the program.');
  { Wait until File descriptor 0 (=Input) changes }
  SelectText (Input,nil);
  { Get rid of <ENTER> in buffer }
  readln;
  Writeln ('Press <ENTER> key in less than 2 seconds...');
  tv.sec:=2;
  tv.usec:=0;
  if SelectText (Input,@tv)>0 then
    Writeln ('Thank you !')
  else
    Writeln ('Too late !');
end.
The latest version of this document can be found at lazarus-ccr.sourceforge.net.