Процедура последовательного увеличения размера шрифта

[Olya1985]

скажите, пожалуйста, в чем заключается ошибка

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=strtoint(inttostr(label1.font.Size));
i:= 12;
do
i:=i+8;
 while

 i<52

end;

end.

___________
1) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

2) Оля, Вы когда-нибудь научитесь давать своим темам осмысленные названия?!!
Название темы должно адекватно отражать суть решаемой задачи/проблемы.


Не забывайте об этом!
Модератор.

[Аватар]

Да это же не код, это одна сплошная ошибка А что вы хотели сделать этим кодом?

[Olya1985]

изначальный шрифт 12, затем при нажатии button 1 шрифт увеличивается на 8 пт до те пор пока не достигнет 52.

[Аватар]

При одном нажатии button шрифт в лабел должен плавно измениться от 12 до 52 и на форме что-то типа анимации?

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  i:=12;
  while i<=52 do begin
    Label1.Font.Size:=i;
    Application.ProcessMessages;
    Sleep(200);
    Inc(i,8);
  end;
end;

[Serge_Bliznykov]

или так (последовательное увеличение на 8 пунктов при каждом нажатии на клавишу.) циклически. Как только достигли 52 - сбрасываем размер до 12

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (label1.font.Size+8) < 52
    then
      label1.font.Size := label1.font.Size + 8
    else
      label1.font.Size := 12;
end;

[Olya1985]

спасибо!!!