Wie kann ich überprüfen ob ein string ein gültiges zeitformat enthält?

z.b 14:30:20 oder auch nur 14:30

Hi simonko,

versuch mal Dein Glück mit

StrToDate( s : String ) Die Funktion verlangt eine Datums/Zeiteingabe liefert einen Fehler falls es nicht paßt.

Niels

Hai simonko,

mit der Funktion von nieurig und einer Fehlerbehandlung könnte das dan so aussehen:

zusammenfalten · markieren

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;

Zitat von simonko:

Wie kann ich überprüfen ob ein string ein gültiges zeitformat enthält?

z.b 14:30:20 oder auch nur 14:30

zusammenfalten · markieren

Delphi-Quellcode:

function IsTimeStringValid(TimeString : string) : boolean;
var
  ADateTime : TDateTime;
begin
   result := true;
   try
     ADateTime := StrToDateTime(TimeString);
   except
     result := false;
   end;
end;

[edit]Der Hai war wieder schneller[/edit]

danke für eure antworten.

Zitat von Sharky:

Hai simonko,

mit der Funktion von nieurig und einer Fehlerbehandlung könnte das dan so aussehen:

zusammenfalten · markieren

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?

markieren

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