Embarcadero Delphi Loops Repeat-Until
Example
program repeat_test;
{$APPTYPE CONSOLE}
var s : string;
begin
WriteLn( 'Type a words to echo. Enter an empty string to exit.' );
repeat
ReadLn( s );
WriteLn( s );
until s = '';
end.
This short example print on console Type a words to echo. Enter an empty string to exit., wait for user type, echo it and waiting input again in infinite loop - until user entering the empty string.
