timer Auto Run

[Serhat]

Selam, Timeri belirli zaman aralıklarında click işlem yatırıyorum, fakat labelden aldIğım değer üzerinden geri sayma işlemi gerçekleşiyor label kullanmadan bu işlemi nasıl yapabilirim...

Kod: Tümünü seç

procedure TForm1.AutoRunTimer(Sender: TObject);
var
  A, B: Integer;
begin
  try
    A := Strtoint(Label2.Caption);
    B := A - 1;
    if (A = 300) or (A = 295) then
    begin
      Showmessage('Araba');
    end
    else
    begin
      if (A = 290) or (A = 285) then
      begin
        Showmessage('Uçak');
      end;
    end;
  except
  end;
end;

[G.Arkas]

Program ayaga kalktigi anda isi sadece bu olan bir string global degisken olusturup label yerine kullanabilirsiniz.