procedure TForm3.SpeedButton1Click(Sender: TObject); Var I:integer; begin I:=0; repeat I:=I+1; until I=10; ShowMessage(INTTOSTR(i)); end;
Rarely used repeat until, but sometimes, she is really practical
procedure TForm3.SpeedButton1Click(Sender: TObject); Var I:integer; begin I:=0; repeat I:=I+1; until I=10; ShowMessage(INTTOSTR(i)); end;
Rarely used repeat until, but sometimes, she is really practical