Gültiges Zeitformat

[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;