[Prisoner]

Имеем:

Код:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
    Timer1.Enabled:=True;
    Edit1.Text := '5';
    Image1.Visible : = True;
End;

Procedure TForm1.Timer1Timer(Sender: TObject);
Var
    iSecondsCnt: Integer;
Begin
    iSecondsCnt := StrToInt(Edit1.Text);
    Dec(iSecondsCnt);
    If iSecondsCnt<1 Then
       Begin
            Image1.Visible := False;
            Timer1.Enabled := False;
            Edit1.Text := '';
       End
    Else
       Edit1.Text := IntToStr(iSecondsCnt);
End;

[s]Исправлено: Prisoner, 18:12 18-01-2004[/s]

Извините, там ошибка....
Если приложение открыть и мгновенно не запустить, то через 2 секунды выдаётся сообщение:


-------------------------------------
Project1 * * * * * * * * * * * * * * x
-------------------------------------

' ' is not a valid integer value.

-------------------------------------

Как исправляются такие ошибки?

[shurikan]

Marina Chernova
При проектировании формы надо зайти в окно свойств компонента Timer1 и изменить его свойство Enabled на false, а в свойство Interval записать значение 1000.