zeitanzeige funzt net :(

[fatze]

Delphi-Quellcode:

procedure TForm1.zeitTimer(Sender: TObject; LagCount: Integer);
begin
if tlsec > 0 then
  begin
    dec(tlsec);
  end
Else
  begin
    If tlmin > 0 then
      begin
        dec(tlmin);
        tlsec:=tlsec+59;
      end
    ELSE
      begin
        loose.enabled:=true;
        zeit.Enabled:=false;
      end;
  end;
zeitm.caption:=inttostr(tlmin);
zeits.caption:=inttostr(tlsec);
end;

ich raff echt nicht wieso das nicht geht.... die var tlsec ist auf 20 und nach 20 sec passiert nichts!!! und die Anzeige wird auch nicht aktualisiert...

[Sharky]

Hai fatze,

wie wird in deinem Programm die procedure zeitTimer denn aufgerufen?

[Dax]

Wenn die Anzeige nicht aktualisiert wird, da frage ich mich doch, ob diese Methode überhaupt aufgerufen wird, schliesslich sieht eine normale Timerfunktion anders aus. Oder rufst du das ganze aus einer Timerfunktion heraus auf?
An sich ist der Code nämlich fehlerfrei.

[glkgereon]

und was sind das alles für variablen/methoden?

Zitat:

tlsec, tlmin, loose, zeit, zeitm, zeits

[fatze]

@sharky -durch einen anderen Timer

Delphi-Quellcode:

procedure TForm1.freezeTimer(Sender: TObject);
begin
if ft > 0 then
  begin
    dec(ft);//verringert den Wert von FT um 1 (DECRASE)
  end
ELSE
  begin
    Zeit.enabled:=true;
    startup.enabled:=true;
    freeze.Enabled:=false;
  end;
zeits.Caption:=inttostr(ft);
end;

@DAX kp ich versteh den sinn hinter deinen Sätzen nocht so ganz

@glkbkk
tlsec und tlmin sind variablen :integer
zeitm und zeits sind Label
und der rest sin Timer

achja bei dem code hierdrüber "ft" ist auch eine Variable vom Typ Integer..

[glkgereon]

ich versteh trotzdem nit was du da machst??

und gib uns doch mal den ganzen qt...was die anderen functions die du aufrufst machen können wir nur raten...

[Dax]

Zeig doch am besten einfach mal alles von dem Code her, das irgendwie durch Aufrufe/Abfragen miteinander verbunden ist..

[fatze]

fehler gefunden... hatte in einer anderen procedur vergessen ne zeile zu löschen...

achja kann das mal sein das immer nur 1 timer enabled sein kann????

[f4_tim]

Timer nur einmal enabled?

Nach Durchlauf einfach
Timer1.Enabled := FALSE;
oder?!

... bzw kannst ja gucken, dass sie sich gegenseitig überprüfen und ggf. disablen!

[glkgereon]

nein, es können mehrere timer gleichzeitig enabled sein mein ich

[Aenogym]

klar können mehrere timer gleichzeitig aktiv sein.

Aenogym

[fatze]

komisch bei mir funzt das so net:

Delphi-Quellcode:

    Zeit.enabled:=true;
    startup.enabled:=true;
    freeze.Enabled:=false;

aber so:!!!

Delphi-Quellcode:

    Zeit.enabled:=true;
    //startup.enabled:=true;
    freeze.Enabled:=false;

[Dax]

Checke mal den Code des Startup-Timers, vielleicht setzt er alles auf die Ursprungswerte zurück.