Embarcadero Delphi Loops Repeat-Until

Help us to keep this website almost Ad Free! It takes only 10 seconds of your time:
> Step 1: Go view our video on YouTube: EF Core Bulk Insert
> Step 2: And Like the video. BONUS: You can also share it!

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.



Got any Embarcadero Delphi Question?