mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 03:53:45 +02:00
13 lines
362 B
ObjectPascal
13 lines
362 B
ObjectPascal
Program Example52;
|
|
|
|
{ Program to demonstrate the GetFileHandle (was : GetFS) function.
|
|
In 1.9.x it has been generalised over all platforms }
|
|
|
|
Uses SysUtils;
|
|
|
|
begin
|
|
Writeln ('File descriptor of input ',getFileHandle(input));
|
|
Writeln ('File descriptor of output ',getFileHandle(output));
|
|
Writeln ('File descriptor of stderr ',getFileHandle(stderr));
|
|
end.
|