mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-02 08:21:01 +01: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.
|