[next] [prev] [prev-tail] [tail] [up]

#### Read

Declaration:
  Procedure Read ([Var F : Any file type], V1 [, V2, ... , Vn]);
Description:
  Read reads one or more values from a file F, and stores the result in V1, V2, etc.; If no file F is specified, then standard input is read. If F is of type Text, then the variables V1, V2 etc. must be of type Char, Integer, Real, String or PChar. If F is a typed file, then each of the variables must be of the type specified in the declaration of F. Untyped files are not allowed as an argument.
Errors:
  If no data is available, a run-time error is generated. This behavior can be controlled with the {$i} compiler switch.
See also:
  Readln (553), Blockread (458), Write (589), Blockwrite (460)

Listing: refex/ex50.pp

Program Example50;
{ Program to demonstrate the Read(Ln) function. }
Var S : String;
C : Char;
F : File of char;
begin
Assign (F,'ex50.pp');
Reset (F);
C:='A';
Writeln ('The characters before the first space in ex50.pp are : ');
While not Eof(f) and (C<>' ') do
Begin
Read (F,C);
Write (C);
end;
Writeln;
Close (F);
Writeln ('Type some words. An empty line ends the program.');
repeat
Readln (S);
until S='';
end.

[next] [prev] [prev-tail] [front] [up]