123456789101112 |
- 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.
|