Hallo DJ-SPM,
durch hast lediglich einen Fehler bei der Zuweisung und der Typenumwandlung gemacht.
Hier die Erläuterung deienes Quelltextes:
Delphi-Quellcode:
var time1,time2:TTime;
var time3:ttime;
begin
time1:=strtotime(Edit1.Text); //Du weist der Variabln time1 die in Edit1 eingegebene Uhrzeit zu OK!
edit1.Text:=timetostr(now); //Dann versuchst du jetzt die eingegebene Zeit in Edit1 mit der aktullen zu überschreiben ERR!
// Es müsste Edit2 zugewiesen werden
time2:=strtotime(edit2.Text); // Dann versuchst du aus dem mit "edit2" gefüllten Feld die aktuelle Zeit wieder einzulesen ERR!
time3:=(time2-time1); //Jetzt ermittelst du die Differenz
time3:=strtotime(Edit3.Text); //Hier versuchst du der schon mit der Differenz gefüllten Variabln Time3 eine In Edit3 eingegebene Zeit zuzuweisen
Hier das Richtige Beispiel:
Delphi-Quellcode:
Var time1,time2:TTime; //Es sind nur 2 Variabln nötig, denn now hat ja schon die akutelle Zeit!
begin
time1:=strtotime(edit1.text); // Die eingegebene Zeit einlesen
edit2.text:=timetostr(now); // Aktuelle Zeit ausgeben
time2:=now-time1; //Differenz ermitteln und Time2 zuweisen
edit3.text:=timetostr(time2); // Differenz in edit3 ausgeben
Voila
MFG
Thomas