Is there such a loop? (wait.. until..).

[infinitejl]

Is it possible?

 

 

something like

 

 

"wait until x=5"

 

and as long as it's not 5, it will just wait, without doing anything?

 

thank you.

[Wanted]

while (X <> 5) do
begin
 Wait(1000);
 Inc(X);
end;

 

repeat
 Wait(1000);
 Inc(X);
until (X = 5);

[sjesper]

You could also do this:

for i := 1 to 5 do
  wait(500);

 

There are tons of options (Or actually 4 )

[Wanted]

var
 X: Integer;

procedure Incursion;
begin
 Inc(X);
 Wait(1000);
 if (X <> 5) then
   Incursion;
end;

begin
 Incursion;
end.

 

procedure LExample;
var
 X: Integer;
label
 ProcStart;
begin
 ProcStart:
 Inc(X);
 Wait(1000);
 if (X <> 5) then
   goto ProcStart;
end;