TryStrToTime - so schwer kanns nicht sein

[Ajintaro]

Hallo ihr!

Ich bin heilfroh das ihr mir schonmal an einer anderen Stelle mit den DateTime Funktionen geholfen habt. Nun hänge ioch wieder an einem bestimmt sehr simplen Fall: ich habe mehrere Editfelder die mit Uhrzeiten rechnen. Wenn der user nun aber sich NICHT an das Format HH:MM (z.B. 12:00) hält, bekomme ich natürlich einen Fehler.

Meine Idee war beim Verlassen des Editfeldes (OnExit) zuersteinmal die Länge abzufragen (mind. 5 zeichen) und das Format. Nun nach meiner Suche hier im Forum hab ich das Stichwort TryStrToTime aufgeschnappt. Ich arbeite mit Delphi 7 somit ist die Funktion verfügbar. Nur leider hab ich noch nicht herausgefunden wie der Code dafür syntaktisch korrekt ist.

if TryStrToTime(edit1.Text) ? hmpf!

Guten Hunger!

[Treffnix]

Delphi-Quellcode:

Procedure irgendwas
var dt: TDateTime;
Begin
  If TryStrToTime( edit1.Text, dt ) Then 
    //Hat geklappt und jetzt steht der Wert in dt
  Else
    //Das war wohl kein gültiger String
End;

[leddl]

Hätte sich mit einem Blick in die OH recht schnell lösen lassen. Außerdem zeigt dir Delphi doch die benötigten Parameter an, wenn du die "(" schreibst. TryStrToTime gibt dir natürlich nicht nur einen Boolean, sondern auch noch die entsprechende Zeit zurück, also muß auch ein TDateTime als Parameter übergeben werden, der dann gefüllt wird.

//Edit: Mist, hätt ich mir auch sparen können ;)

[Ajintaro]

Ui, ui lieber herr Treffnix! Genau der 2. Parameter hat gefehlt vielen Dank!
Und leddl hat übrigens auch Recht, ich danke euch beiden!

So ich hoffe euch hat es auch so gut geschmeckt wie mir :-)

[Sharky]

Hai Ajintaro,

nur so am Rande -> Warum verwendest Du für eine Zeiteingabe kein TDateTimePicker mit den Einstellungen .Kinde := dtkTime und .Format := 'HH:mm' ?

Das wäre doch das einfachste :stupid:

[Speedmaster]

Zitat:

Zitat von Ajintaro

Ui, ui lieber herr Treffnix! Genau der 2. Parameter hat gefehlt vielen Dank!
Und leddl hat übrigens auch Recht, ich danke euch beiden!

So ich hoffe euch hat es auch so gut geschmeckt wie mir :-)

Hmm, ich bitte dich dich höfflich darum dich ein bischen mit den Grundlagen der Programmierung zu beschäftigen( Besonderst OOP ), den dein Delphi 7 Enterprise hat den Parameter der gefehlt hat sicher angezeigt.

Am besten guckst du mal >>hier<< :wink:
Dann bekommst du in Zukunft deine Quelltexte schneller zusammen, falls du irgendeinen Hintergrund nicht verstehst kannst du ja hier Fragen!

[Sharky]

Zitat:

Zitat von Speedmaster

...
Hmm, ich bitte dich dich höfflich darum dich ein bischen mit den Grundlagen der Programmierung zu beschäftigen( Besonderst OOP ), den dein Delphi 7 Enterprise hat den Parameter der gefehlt hat sicher angezeigt
.....!

Hai Speedmaster,

ich bitte dich darum jedem der eine Frage hat auch zu helfen.
Ich weiss nicht seit wann Du eine Delphi-Enterprise (in dem Alter konnte ich mir das nicht leisten) Version hast ... aber sicher hast auch DU einmal angefangen zu lernen.

[CLRS530]

Was ist das denn für ein blöder Spruch?
Seine bitte ist doch völlig berechtigt und ich unterstreiche sie dir gerne.
Er kann doch froh sein, wenn ihm jemand hilft und genau das hat er getan.
Das Forum ist auch nicht dafür da jemand die Synthax der Programmiersprache beizubringen.

also ich verstehe deine Antwort nicht.

[Treffnix]

Da muss ich dem Herrn ohne Vokale über mir ( zumindest inhaltlich ) zustimmen.
Mir lag zuerst auch so ein Hinweis auf der Zunge.. äh den Fingern. Da die Lösung aber kürzer war und ich von Natur aus faul bin, hab ichs mir verkniffen.
Davon abgesehen war die Bitte von Speedmaster ja auch politisch korrekt formuliert, um nicht zu sagen höf(f)lich. :tongue:

P.S.: @Sharky: Der Threadersteller ist der mit der Enterprise. Speedmaster hat ne PE ( laut Daten )