Zitat von
Mazel:
Nun dachte ich, weil ich die Funktion öfter vwerwende, diese in eine extra Funktion zu lagern damit für mich der Zugriff und Überblick einfacher wird. Jedoch funktioniert dies leider nicht. Ich dachte, das try except würde genau so reagieren wie im OnChange Ereignis, das tut es scheinbar aber nicht.
das try except reagiert richtig.
nur du hast deine funktion falsch geschrieben.
wenn du dir den code den ich dir da geschickt habe bzw. die kommentare anschaust, dann
solltest du es sehen.
Delphi-Quellcode:
Edit1.Text := DateTimeToUnixTime(
StrToDateTime(Edit1.Text)
// hier kann auch eine exception geworfen werden diese fängst du nicht ab
);
hättest du das strToDateTime in deine Funktion gesteckt und deine funktion so aufgebaut:
Delphi-Quellcode:
function DateTimeToUnixTime(DateTime: string): String;
begin
try
Result := IntToStr(DateTimeToUnix(StrToDateTime(DateTime)));
except
Result := IntToStr(DateTimeToUnix(0));
end;
end;
hätte es so funktioniert wie du es haben wolltest, da die
exception jetzt innerhalb
deines try except blockes auftritt.
vorher hattest du diese nicht gecatched!
beste grüße
konse