Sekunden, Minuten, Stunden Rechner

[Sherlock]

Die Links schießen mMn über das Ziel hinaus. Ein Beispiel aus der Realität sagt, daß ein Spielfilm 100 Minuten dauern kann. Was du brauchst ist zweierlei: ein Ereignis, daß Dir sagt, wenn die Eingabe in einem der Felder getätigt wurde, und eine Formel, die von einem der Werte in die jeweils anderen beiden umrechnet.
Ersteres macht Delphi von Haus aus und Du könntest dazu zB das TEdit.OnChange Ereignis der TEdit Felder nehmen. Beachte bitte, daß Die gleich folgende Rechnerei in die Hose geht, wenn Dein Anwender etwas anderes als Zahlen eingibt!! VCL.StdCtrls.TEdit.NumbersOnly hilft bei VCL-Anwendungen.
Die Rechnerei ist simpel, wenn Du weißt, wieviele Minuten eine Stunde hat, und wieviele Sekunden in einer Minute stecken (Spoiler: es ist beides mal die gleiche Zahl).
Lies also nach wie man einem TEdit ein OnChange Ereignis zuweist, und lies nach, wie man einem TEdit.Text einen neuen Inhalt gibt. Dann hast Du vermutlich nach etwas Denkarbeit drei Methoden und irgendwas läuft mächtig schief, weil *Trommelwirbel* OnChange ständig befeuert wird.
Du mußt also wissen, welches Feld tatsächlich vom Anwender verändert wurde, und welches aus der Berechnung heraus "automatisch". Dazu kannst Du zB erkennen, in welches Feld der Anwender zur Eingabe gegangen ist, und zwar mit TEdit.OnEnter. Dann darfst Du die Felder, die nicht gerade bearbeitet werden nicht auf das OnChange reagieren lassen, und fertig.

Sherlock

[FG53]

Sherlock, ich danke dir für deine Antwort. Das hilft mir sehr weiter. Ich versuche das mal und gebe später wieder bescheid, danke nochmal.

[Rollo62]

Also ich würde schon empfehlen direkt TDateTime als Basis-Zielspeicher zu nehmen,
und dann wie himitsu vorgeschlagen hat
- die drei Edits extrahieren und mit EncodeDateTime und z.B. in MilliSeconds umrechnen,
- daraus den Zielspeicher zusammenrechnen, http://www.delphibasics.co.uk/RTL.as...IncMillisecond
- danach wieder aus dem TDateTime die berechneten Daten extrahieren mit DecodeDateTime
- die OnChange Events kurz abzuschalten,
- und die Edits mit den Ergebnissen restaurieren,
- dann die OnChange Events wieder einschalten

Der Vorteil von TDateTime wäre, das es dann auch mit Tagen, Monaten usw. klarkommen könnte,
und die ganzen Utils drumherum ziemlich robust und getestet sind.

[HolgerX]

Hmm..

Dir geht es darum, dass in den jeweiligen Edits ein beliebiger Wert für z.B. Minuten eingegeben werden kann und daraus dann ein gültiger Zeitwert errechnet wird..

Dann würde es doch so gehen:

Delphi-Quellcode:

uses
  DateUtils,...

procedure TForm1.EditHourChange(Sender: TObject);
var
  DT : TDateTime;
begin
  DT := 0;  // 00:00:00
  DT := IncHour(DT, StrToIntDef(EditHour.Text,0));
  DT := IncMinute(DT, StrToIntDef(EditMinute.Text,0));
  DT := IncSecond(DT, StrToIntDef(EditSekunde.Text,0));

  // Mach was mit dem DT
  EditTime.Text := DateTimeToStr(DT);
end;

Es können somit 3 Stunden, 157 Minuten und 2003 Sekunden eingegeben werden und Du würdest dafür den richtige Uhrzeit im TDateTime Format erhalten.

(Dazu natürlich dieses Event in jedem OnChange der 3 Edits zuweisen)

[himitsu]

Zitat von Sherlock:

und irgendwas läuft mächtig schief, weil *Trommelwirbel* OnChange ständig befeuert wird.

Eigentlich nicht nötig.
Es kann an alle Edits die selbe Ereignismethode dran.
Zusammenrechnen und zerlegen ist ja überal gleicht.
(gut, wenn man was bei Minuten einträgt, dann werden die Sekunden sich nicht ändern, aber ist ja egal ob man deren Text auch nochmal zuweist)

Aber wie schon gesagt, am Besten OnExit statt OnChange.
Dann die richtigen Werte ausrechen
und einfach überall den aktuellen Wert zuweisen.

Im Setter von TEdit.Text ist bereits ein passender Code einebaut.

Delphi-Quellcode:

if Text = NewText then
  Exit;

Also wenn sich nichts ändert, dann wird nichts zugewiesen und auch kein OnChange ausgelöst.

oder wenn du es doch selber machen willst (doppelt, nochmal zur Sicherheit), dann

Delphi-Quellcode:

if Edit.Text <> NewText then
  Edit.Text := NewText;

[p80286]

Die Exe ist nett, aber er möchte wohl auch Programmieren lernen,da wären die Sourcen wohl sinnvoller.

Gruß
K-H

[Sherlock]

So unterschiedlich kann man Anforderungen interpretieren - fast wie "drei Anwälte=fünf Meinungen".

Ich verstand es so, daß es ein Programm gibt, dem man eine Dauer/ein Intervall in Sekunden mitgeben kann - ich sah keine Uhrzeit im Ursprungsposting. Der Anwender soll die Wahl haben, wie er diese Zeitspanne eingeben will, dieser geplante Launcher erledigt die Umrechnung für ihn. Gibt er also 2 Stunden ein, werden die anderen Felder mit 120 Minuten bzw 7200 Sekunden befüllt. An die Anwendung wird als Parameter dann eben "7200" übergeben oder so...

@Himitsu: Oh Mann, sag mir bitte, das es das erst seit sehr kurzer Zeit gibt - meinetwegen auch nach geologischen Maßstab.

Sherlock