Einzelnen Beitrag anzeigen

Chucky_88

Registriert seit: 23. Okt 2004
Ort: Dinslaken
21 Beiträge
 
Delphi 7 Enterprise
 
#18

Re: Zeitrechner funktioniert nicht wie er soll

  Alt 21. Nov 2004, 19:00
Jedoch hab ich wieder ein Neues Problem:
Das mit dem zeit ausrechnen ist nun OK, jedoch möchte ich einen Countdown darunter.
Das ist in einen Counter geschrieben. Er steht standartmäßig auf enabled := false;
Er wird durch einen Button aktiviert und läuft jede Sekunde durch:

Delphi-Quellcode:
procedure TUmrechner.TiCounterTimer(Sender: TObject);
var
cTage, cStunden, cMinuten, CSekunden : Integer;
begin
  cTage := gTage; // Das ist aus anderen vorherigen Funktionen übernommen
  cStunden := aStunden; // Die Werte dürfen halt nur im Counter geändert werden.
  cMinuten := aMinuten; // Dafür die doppelten Variablen.
  cSekunden := aSekunden;

If (cSekunden > 0)
  then cSekunden := cSekunden -1;

If (cSekunden = 0)
  then
     if (cMinuten > 0)
     then begin
      cMinuten := cMinuten -1;
      cSekunden := 59;
     end
     else
       if (cStunden > 0)
       then begin
        cStunden := cStunden -1;
        cMinuten := 59;
       end
       else
         if (cTage > 0)
         then begin
          cTage := cTage -1;
          cStunden := 23;
          cMinuten := 59;
         end
         else
           if (cSekunden = 0) and (cMinuten = 0) and (cStunden = 0) and (cTage = 0)
           then TiCounter.Enabled := false;

EdCounter.Text := IntToStr(cTage) +':' +IntToStr(cStunden) +':'  +IntToStr(cMinuten) +':' +IntToStr(cSekunden);

end;

Das Problem dabei ist: Der counter läuft nicht weiter. Er Zeigt den Grundwert an aber nichts danach ... Ich weiß nicht was daran falsch ist. Der Timer soll bei jedem durchgang eine Sekunde runter rechnen. Halt ein Countdown mit Tagen - Stunden - Minuten und Sekunden.
Bitte helft mir ...

Mfg Chucky
Sebastian
,,Ich kann nicht sagen ob es besser wird, wenn es anders wird. Aber eins kann ich freilich sagen, es muss anders werden damit es gut wird."
  Mit Zitat antworten Zitat