Gültiges Zeitformat

[glkgereon]

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