Zitat von
Sharky:
Hai simonko,
mit der Funktion von nieurig und einer Fehlerbehandlung könnte das dan so aussehen:
Delphi-Quellcode:
function CheckTimeString (aValue : String) : boolean;
begin
try
result := True;
StrToTime(aValue);
except
result := False;
end;
end;
procedure TForm1.btn_CheckTimeClick(Sender: TObject);
begin
if CheckTimeString(edt_Zeit.Text) then
ShowMessage('okay');
end;
Auch wenn die Frage schon gelöst ist...wäre es nicht logischer das ganze so zu schreiben?
Delphi-Quellcode:
function CheckTimeString (aValue : String) : boolean;
begin
try
StrToTime(aValue);
result := True;
except
result := False;
end;
end;
"Wenn nach Aufruf kein Fehler aufgetreten ist dann isses True sonst False"...
Ausserdem greife ich genau einmal auf Result zu, du ein bis zweimal
