SystemReadln (Delphi)

From RAD Studio Code Examples
Jump to: navigation, search

Description

This example assumes you are compiling as a console application.

Code

program Project1;

{$APPTYPE CONSOLE}

var
  s : string;
begin
  Write('Enter a line of text: ');
  Readln(s);
  Writeln('You typed: ',s);
  Writeln('Hit <Enter> to exit');
  Readln;
end.

Uses