Бесконечный цикл

[Алексей_2012]

Здравствуйте, ничего глупее не придумал как написать бесконечный прикольный цикл, вот что у меня вышло, а у вас будут какие нибудь свои идеи кроме "займись чем-нибудь полезным"?

procedure TForm1.Button2Click(Sender: TObject);
var i,j:Byte;
     obmanka:Boolean;
     label m1;
begin
  obmanka:=False;
  m1:for i:=0 to 11 do
  begin
    if i=2 then ShowMessage('Подождите немного...');
   while not obmanka do
   begin
    for j:=1 to 99 do  Sleep(5);
    obmanka:=True;
   end;
   obmanka:=false;
   ShowMessage('Простите, но начинаем сначала! (извините)...');
   if i=4 then goto m1; end;
end;

[Вадим Мошев]

while true
	do
		begin
			ShomMessage('Ждите');
			sleep(5);
			ShomMessage('Иди на фиг, всё сначала');
		end;
		
ShowMessage('если вы видите это сообщение, то вы избранный');

Больше делать нечего?

[Алексей_2012]

а можно сделать какой-нибудь цикл, шанс выхода из которого все-таки есть, например использовать рандом

[BDA]

n := 1;
while random(100) < 50 do
begin
  sleep(50);
  inc(n);
end;
showmessage('Рандома хватило на ' + inttostr(n) + ' итераций');

[Алексей_2012]

procedure TForm1.Button3Click(Sender: TObject);
var i1:binteger;
begin
i1:=0;
 while i1<>0 do
 begin
 Label1.Caption:=IntToStr(i1);
 Inc(i1);
 end;
end;

хотел повторять цикл пока не произойдет переполнения, и выводить в метку значение переменной, почему не работает? (да, я знаю что после переполнения выйдет ошибка, но все же, главное чтоб последние число в метке осталось)

[Mad_Cat]

Нужно

i1:=1;

[Пепел Феникса]

поправка верна, так же помним что вы не увидите результата пока цикл не завершится.

[s-andriano]

Сообщение от Пепел Феникса

поправка верна, так же помним что вы не увидите результата пока цикл не завершится.

Так именно в этом весь прикол и состоит.

[Алексей_2012]

а как сделать так, чтоб было видно? цикл то долго будет идти

[Serge_Bliznykov]

Сообщение от Алексей_2012

а как сделать так, чтоб было видно?

procedure TForm1.Button3Click(Sender: TObject);
var i1:binteger;
begin
 i1:=1;
 while i1<>0 do
 begin
   Label1.Caption:=IntToStr(i1);
   Inc(i1);
   Application.ProcessMessages;
   Sleep(1);
 end;
end;

p.s. имхо, Вы чепухой занимаетесь...