Previous: 4.67.2.67. Read procedure To the Table of Contents Next: 4.67.2.69. Rename procedure
4.67.2.67. Read procedure Table of Contents 4.67.2.69. Rename procedure

- 4.67.2.68. -
Table of Contents
4. Standard Units
4.67. System - Built-in routines
4.67.2. System Unit Procedures and Functions
4.67.2.68. ReadLn procedure


4.67.2.68. ReadLn procedure

Targets: MS-DOS, OS/2, Win32


System Unit

Executes the Read procedure then skips to the next line of the file.

Declaration:
procedure ReadLn([ var  F: Text;] V1 [, V2, ...,Vn ]);
Remarks:
Depending on the type of the variable or variables passed, ReadLn copies the contents of the file, from the current file pointer, into the variable and advances the pointer. If ReadLn cannot match the type of the variable with the contents of the file, an I/O error occurs. End of line (#13) as well as end of file (#26) cause ReadLn to terminate.

The file must be a text file or standard input. ReadLn is identical to Read except that it advances passed the end of line marker.

With {$I-}, IOResult returns an error code if the operation was not successful. If no error was encountered, IOResult is set to zero.

Example:
{$ifndef __CON__}
  This program must be compiled as console application only
{$endif}
var
  Name: String;
  Age:  DWORD;
begin
  Write('Enter your name: ');
  ReadLn(Name);
  Write('Enter your age : ');
  ReadLn(Age);
  if Age < 21 then 
    WriteLn('You'íre so young, ', Name, '!')
  else if Age < 40 then 
    WriteLn(Name, ', you''re still in your prime!')
  else if Age < 60 then 
    WriteLn('You''re over the hill, ', Name, '!')
  else if Age < 80 then 
    WriteLn('I bow to your wisdom, ', Name, '!')
  else
    Writeln('Are you really ', Age, ', ', Name, '?');
end.
See also:
User Defined Reader Procedure


Previous: 4.67.2.67. Read procedure To the Table of Contents Next: 4.67.2.69. Rename procedure
4.67.2.67. Read procedure Table of Contents 4.67.2.69. Rename procedure

- 4.67.2.68. -