Wie baue ich eine Stopuhr ?

[Overkill]

Hey Leute

Ich habe eine frage an euch:
Weis einer wie man eine Stopuhr baut !! Ich suche diese sehr dringend für Delphi 3

Das Gerüßt meiner Stopuhr:

Edit1 Die Uhrzeit ist 10:00 Uhr läuft

Edit2 Die Startzeit ist 10:00 bleibt stehen weil die Tür geöffnet wird

Edit3 Die Dauer muß errechnet werden Sagen wir die Dauer sind 3min 21sek weil die Tür offen ist

Edit4 Die Neue Zeit ist dann 10:03:21 diese muß jetzt stehen weils sie wieder geschlossen wurde.

Edit5 Das Datum ändert sich nach 24h

Das ganze soll eine Gewisse Reaktion auslösen: Wenn ihr jetzt eine Tür öffnet sagen wir ihr holt euch was aus der Küche zum essen dann muß die Startzeit stehen / die Dauer läuft / und die Neue Zeit angezeigt werden .

Das Ganze muß in eine TXT alle 10min reingespeichert werden wo sich die Datei alle 10 min neu selbst erstellt ohne die erste Datei zu löschen das sind dann 6 Dateien pro stunde

Das ganze muß errechnet werden !!! Ganz wichtig sibe Oben ein Beispiel !!

-=""Overkill""=-

Vielen Dank im Vorraus

[Sharky]

Hai Overkill,

ersteinmal: "Herzlich Willkommen in der Delphi-PRAXiS"

Du könntest auf deine Form einen Timer legen der z.B. alle 200ms die aktuelle Systemzeit ausliest.
Diese zeigst Du dann in deinem Edit1 und Edit2 an.
Wenn die Tür geöffnet wurde setzt Du dir eine Variable. Wenn diese gesetzt ist wird die Zeit in Edit2 nicht mehr aktuallisiert.
Wenn die Tür nun geschlossen wird zeigst Du in Edit4 die Zeit an und berechnest für Edit3 die Differenz von Edit4 und Edit2.