Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Ykcim,
23. Jan 2009
Hatte hier noch einmal alles gepostet, bevor ich den edit-Button gefunden hatte... :wall: :cheers:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Ykcim,
23. Jan 2009
Hallo Zusammen,
vielen Dank für die vielen guten Antworten!
Ich muss gestehen, dass ich die Berechnung der Zeiten nicht ganz verstehe - ich hatte noch nie damit zu tun...
Was haltet ihr denn davon:
procedure TForm1.Timer1Timer(Sender: TObject);
var aHour,aMin,aSec,aMSec: Word;
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Ykcim,
22. Jan 2009
@DeddyH
DAS IST SPITZE!!! GENAU WAS ISCH GESUCHT HABE!
@ himitsu
Deine Lösung funktionierte auch (damit will ich nur sagen, dass ich sie bei der Übernahme nicht verpfuscht habe), aber die Lösung von DeddyH verstehe ich besser. Ich werden mir aber Deine Erklärung noch sehr genau ansehen, um sie zu verstehen! Vielen Dank für die ausführlichen Informationen!
@Anonymos
Danke für den Hinweis,...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Ykcim,
22. Jan 2009
Warum kann ich eigentlich nicht bei der aktuelle Uhrzeit nur die Stunden, Minuten und Sekunden vergleichen und die Milisekunden unberücksichtigt lassen, wenn mein Timer alle Sekunde läuft?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Ykcim,
22. Jan 2009
Hallo,
ersteinmal vielen Dank für die Antworten!!!
Ich muss aber mein Verständnis noch hinterfragen:
If (Frac(Time) >= StrToTime('06:00:00')) and (Frac(Time) < StrToTime('20:00:00'))
Damit wird geprüft, es gerade zwischen 06:00 und kleiner 19:00 Uhr ist?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Ykcim,
22. Jan 2009
Hallo,
ich habe eine wahrscheinlich simple Frage:
Ich möchte ein Programm schreiben, dass von 06:00Uhr bis 19:00Uhr immer zur vollen Stunde etwas ausführt. Ich wollte dazu den Timer verwenden und die aktuelle Zeit mit einer vorgegebenen Zeit(en) vergleichen.
Aber irgendwie klappt das nicht!
procedure TForm1.Timer1Timer(Sender: TObject);
var DateTime:TDateTime;