[MeKree]

Сообщение от Alegun

Код:

var
 i: integer = 0;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Label1.Caption:= Label1.Caption + '.';
 if i > 5 then
  begin
   i:= 0;
   Label1.Caption:='text';
  end;
 Inc(i);
end;

Не работает почему то ((

Точки добавляются до бесконечности, как можно исправить ??