Timer og if then men hvad mangler

25 sek vil der gå før den første if vil blive kaldt

men ellers skal det virke :-/

hmm nææ det gør den ikke fordi du nulstiller jo ikke i

Dette virker

var
  Form1: TForm1;
i: integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
I:=0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
i := i+1000;
Label2.Caption:=IntToStr(i);
if i = 25000 then Label1.Caption := 'tid1'
  else if i = 50000 then Label1.Caption := 'tid2';
  if i >= 80000 then
  begin
  Label1.Caption:= 'tid3';
  i:= 0;
  end;
end;

end.

tæt på vallemanden , men den bliver stående på tid3 , men nu
viser den da noget : )
er det en fejl at du skriver label2 i den første ?
Jeg må indrømme at jeg ikke troede den var så svær, som
den åbenbart er : )

Gider du forsøge igen ? tak

Begge koder SKAL virke og gør det også her hos mig.. :S

Kan det være sandt at 2 gang jeg kompijler det så
virker det ikke ? at den er læst ind i hukommelsen
og kun kan være det en gang ?

Den virker fint : )

Tusinde tak !