Co z tym timerem???

0

Czy pisząc taką procedurę popełniam jakiś błąd????
procedure Tzamykanie.Timer1Timer(Sender: TObject);
var
I : Integer= 30;

begin
Label1.Caption := 'Do zakończenia programu pozostało: ' + IntToStr(I);
Dec(i);
if I = 0 then
zamykanie.Close;
end;

end;
U mnie program nie chce się skompilować i wyskakuje: [Error] Unit1.pas(29): Cannot initialize local variables

pomóżcie

0

Loklanym zmiennym nie możesz przypisywać wartości początkowych.

0

to jak ta procedurka miałaby brzmieć???

0

zmień to tak i będzie działać.

var
I : Integer= 30;
procedure Tzamykanie.Timer1Timer(Sender: TObject);
begin
Label1.Caption := 'Do zakończenia programu pozostało: ' + IntToStr(I);
Dec(i);
if I = 0 then
zamykanie.Close;
end;

0

do globalnej zmiennej I:INTEGER
pod oncreate i:=30 a potem tak jak miaues chba ;]

1 użytkowników online, w tym zalogowanych: 0, gości: 1