"Disco" (oder Countdown) in Delphi möglich?

[ichbins]

In der while-schleife wäre das auch möglich:

Delphi-Quellcode:

var
  lastact:tdatetime;
const
  interval:real=1;
begin
  while not application.terminated do begin  //solange der Benutzer das Prog nicht geschlossen hat
    while now<lastact+interval/3600/24 do   //solange die letzte Aktion nicht länger als interval sekunden her ist
      application.processmessages;   //Windows-Nachrichten abarbeiten
    //jetzt farbe ändern
  end;

[Airblader]

Zitat:

Zitat von FriFra

Zitat:

Zitat von Airblader

@FriFra
:shock: Noch nie von case gehört? ;)

Doch, aber ich bevorzuge trotzdem if, da man damit auch komplexere Abfragen realisieren kann... wenn einem mal irgendwann noch eine weitere Bedigung "einfällt", dann hat es sich ohnehin "ausgecased" ;)

Dann muss man Anfängern aber nicht die elegantere Lösung vorenthalten, nur weil einem die unschönere besser gefällt und es ja mal irgendwann sein könnte, dass es so nichtmehr geht ;)
Abgesehen davon kann case imho auch mehrere Bedingungen verarbeiten - habs aber selber noch nie probiert.

air

[Master_RC]

Noch so zum TTimer (hihi, TTimer [englisch ausgesprochen] ^^)

Das Property - also die Eigenschaft links bei Delphi "Interval" gibt an, wie oft er das ausführt, was du bei dem Timer alles so reinschreibs.

In Millisekunden halt ^^

Also Standard ist 1000 - also jede Sekunde macht der Timer was
500 wäre halt dann alle halbe Sekunde
2000 jede zeite Sekunde :)

[Informatik_Doppelstundler]

Zitat:

Dann muss man Anfängern aber nicht die elegantere Lösung vorenthalten, nur weil einem die unschönere besser gefällt und es ja mal irgendwann sein könnte, dass es so nichtmehr geht Wink

Also case befehl kenn ich, hab das ganze auch damit programmiert weil if n wenig mehr tipparbeit gewesen wäre^^. an sich wärs jetzt aber für mich aufs gleiche rausgekommen ob ich nu if oder case nehme.. :coder:
das schönere an if-funktionen finde ich, dass mans besser nachvollziehen kann...rein von der struktur und der syntax her:
warum genau kann ich jetzt nicht begründen.. :gruebel: