Minütlichen

[runger]

Hallo,

ich würde gerne ein Ereignis aus der aktuellen Uhrzeit ableiten!
Am besten minütlich.

Rainer

[alcaeus]

Hallo Rainer,

sowas macht der Timer, aber wie alle wissen hast du den ja bereits entdeckt. Wo liegt das Problem?

Greetz
alcaeus

[himitsu]

Mach es am Besten, so wie in meinem "letzten" Beispiel, du brauchst dort nur die Zeiten etwas anpassen > also der Timer kann ja alle 'ner Sekunde laufen und die Sekundenangaben werden einfach auf Minuten umgerechnet ^^

[Sharky]

Oder, wenn Du möchtest in einer "Schleife" die Zeit prüfen.

Delphi-Quellcode:

var
  halt : Boolean;

procedure Delay (Value : Integer);
var
  start : Cardinal;
begin
  start := GetTickCount;
  repeat
    Application.ProcessMessages;
  Until (start + value) >= GetTickCount;
end;

procedure TForm1.StartClick(Sender: TObject);
var
  stunde,
  minute,
  sekunde,
  msekunde : Word;
  lminute  : Word;
begin
  halt := False;
  DecodeTime(now,stunde,minute,sekunde,msekunde);
  lminute := minute; // Lezte Minuten zahl
  Repeat
    DecodeTime(now,stunde,minute,sekunde,msekunde);
    if (sekunde <> lsekunde) then
    begin
      lminute := minute;
      Memo1.Lines.Add(IntToStr (lsekunde));  // Die Aktion die ablaufen soll
      Delay (200);  // Damit die Systemlast nicht zu hoch wird
    end;
  Application.ProcessMessages;
  Until (halt);
end;

procedure TForm1.StopClick(Sender: TObject);
begin
  halt := True;
end;

[runger]

Nee,

ich will rein Interessehalber wissen ob man die Zeit per Event abfangen kann!

Noch etwas prinzipielles:
Endlosschleifen blockieren andere Prozesse (ist etwas ungenau formuliert aber im Prinzip richtig). Endlosschleifen scheiden aus.

Rainer

[alcaeus]

Zitat von runger:

Endlosschleifen blockieren andere Prozesse (ist etwas ungenau formuliert aber im Prinzip richtig). Endlosschleifen scheiden aus.

Seit wann das denn? Ich habs soeben versucht, nichts passiert. Wenn du mit "blockieren andere Prozesse" meinst, dass deine Anwendung nicht mehr reagiert, dann bau doch einfach ein Application.Processmessages ein

Greetz
alcaeus

[toms]

Zitat von runger:

ich will rein Interessehalber wissen ob man die Zeit per Event abfangen kann!

Was genau moechtest du denn machen?

[runger]

Hallo Sharky,

dein Vorschlag wäre gut wenn..
Delay hat eine ganz unangenehme Nebenwirkung, es wirkt sich nämlich auf Timer und deren Proceduren aus. ( Hab ich hier im Forum schon bis zum erbrechen durchdiskutiert. )
In userem Rogramm gibts jede Menge Timer die laufen müssen.
Unter Umständen werden während delay alle Timer gestoppt.

Rainer

[himitsu]

Zitat von runger:

Endlosschleifen blockieren andere Prozesse (ist etwas ungenau formuliert aber im Prinzip richtig).

[oh]Application.ProcessMessages;[/oh]

[runger]

Hallo,

Voll daneben.Löst das Problem nicht. Probiers aus.Timer werden blockiert und bleiben auch geblockt solange delay läuft, auch wenn processmessages drinsteht.

Rainer