Probleme bei Wecker

[TheMiller]

Hab jetzt mal ein neus Projekt erstellt und den Code von dir/mir/uns (wie auch immer) eingefügt und jetzt gehts. Mal sehen, wo der fehler in meinem Projekt ist. Melde mich dann wieder...

Ok, hier bin ich wieder:
Also, im richtigen Projekt gehts definitif NICHT. Habe alle timer, Media-Komponenten entfernt und alles neu geschrieben. Will net. Was nun? Brauch jetzt gaaanz dringend deine Hilfe

*halbfreuhalbärgerlichbin*

Gruß
Sascha

[Christian Seehase]

Moin Sascha,

wenn ich es richtig sehe, hast Du ja die Code Tags verwendet.
Direkt links da drunter sind die Delphi Tags.

Dass Du Deine Zwischenfelder Time1 und Time2 nicht brauchst ist hoffenlich klar.
Ausserdem kann ich Dir nur empfehlen, die Einträge in der Ini sprechend zu benennen (also nicht 'time1','time2').
Zudem ist es sicherer, solche Namen als Konstanten zu speichern.
Wir hatten schon ein paar Mal den Fall, dass der Fehler in Schreibfehlern bei solchen Angaben lag.
Kann nicht passieren, wenn man Konstanten benutzt.

[TheMiller]

Ok, Christian...

du/ich oder wir zusammen haben es geschafft. Mein Wecker geht!!! (Auch im großen Projekt)... Der Fehler war.. hm.. keine Ahnung. Habe deinen Code von Seite 1 im Forum genommen und mit entsprechnder Ini-Angaben in das eine neue Programm eingefügt. Ging ja einwandtfrei... Nun kam mir die Idee, diesen Code das Projekt einzufügen und bitte frag mich nicht warum, aber es ging. Änderung gleich 0, aber es geht.

Hier nochmal für ALLE, die an diesem Problem hängen...

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  tiWecker : TTime;
  tiDiff   : TTime; 
  tiNow    : TTime; 
  time1    : String; 
  time2    : String;
  ini      : TInifile;
begin 
ini:=TInifile.Create('C:\NAMEDERINI); 
try 
  time1    :=ini.ReadString('Wecker','time1',text); 
  time2    :=ini.ReadString('Wecker','time2',text); 
  tiWecker := StrToTime(time1);
  tiDiff   := StrToTime(time2);
  tiNow    := Time;
  if (tiNow >= tiWecker) and  (tiNow < (tiWecker+tiDiff)) then MediaPlayer1.Play;
  finally 
  ini.free;
  end; 
  end;
  end.

Christian...
wenn ich einen Member krönen könnte, würde ich bei dir Anfangen. Grund?

-unendliche (nervliche) Belastbarkeit
- -"- Hilfsbereitschaft
-und alles Weitere, was einen neten Menschen/Programmierer auszeichnet...

( PS: Wenn du einen kleinen Lohn haben willst, und du dich als "BETA-TESTER" für mein Projekt bereiterklärst, dann melde dich doch einfach mal bei mir. Ich denke, es wird dir gefallen... )

In diesem Sinne:
und
DANKE, THANKS, MERCI, GRACIE ...

Ciao
Sascha