wenn edit nicht dem format entspricht dann ... ??

[Lannes]

Hallo,

auf gültige Zeit und Format '00:00:00' prüfen:

Delphi-Quellcode:

var aTime: TDateTime;
Begin
if Length(Edit1.Text) = 8 then
  begin
    try
    ATime := StrToTime(Edit1.Text);
    except
    showmessage('Bitte gültige Zeit angeben');
    end;
  end
  else
    Showmessage('Bitte Zeit im Format "00:00:00" angeben');