Определить содержимое строки (date, time, datetime)

[NieL]

В списке TStrings хранятся строковые представления data, time, datatime. Визуально выглядит так:

13:00
25:10.2008
25:10.2008 13:00

Нужно определить формат строки в списке т.е. в строке указано: только время, только дата, дата и время. В последующем в зависимости от формата происходит сравнения либо с текущей датой, либо временем, либо датой и временем. Какие есть варианты реализации, кроме использования RegExp.

[mihali4]

if Length(mystr[i])<6 then
ShowMessage('Только время') else
if Length(mystr[i])<11 then
ShowMessage('Только дата') else
ShowMessage('Дата и время');

[NieL]

Сообщение от mihali4

if Length(mystr[i])<6 then
ShowMessage('Только время') else
if Length(mystr[i])<11 then
ShowMessage('Только дата') else
ShowMessage('Дата и время');

Может есть какие другие способы, т.к. не совсем оптимально на мой взгляд использовать такой алгоритм.

[Kotofff]

Можно "в лоб", например, дату проверять :

  function ValidDate(const S: String): Boolean;
  begin
  Result := True;
  try StrToDate(S);
  except on EConvertError do Result := False;end;
  end;

Только при запуске в среде Delphi и неверном значении будет ошибка т.к. компилятор возьмет на себя исключительную ситуацию ...

Использовать можно так :

procedure TForm1.Button1Click(Sender: TObject);
  function ValidDate(const S: String): Boolean;
  begin
  Result := True;
  try StrToDate(S);
  except on EConvertError do Result := False;end;
  end;
begin
  if ValidDate(Edit1.Text) then ShowMessage('Это дата') else ShowMessage('Это не дата');
end;

[Антон Ю.Б.]

С обработкой неполного формата времени вот так получилось

function GetDateTimeType(s:string):Integer;
  var DT:TDateTime;
      T:TTime;
      D:TDate;
      ts:String;
begin
 result:=-1;
 try
   D:=StrToDate(s);
   if s=DateToStr(D) then
     begin
       Result:=0;
       Exit;
     end;
 except
 end;

 try
 T:=StrToTime(s);
 if (Pos(s,TimeToStr(T))=1)
     and ((Length(TimeToStr(T))=Length(s))or(TimeToStr(T)[Length(s)+1]=':')) then
    begin
      Result:=1;
      Exit;
    end;
 except
 end;

 try
   DT:=StrToDateTime(s);
   if (Pos(s,DateTimeToStr(DT))=1)
       and ((Length(DateTimeToStr(DT))=Length(s))or(DateTimeToStr(DT)[Length(s)+1]=':')) then
     begin
       Result:=2;
       Exit;
     end;
 except
 end;


  s:='25.10.2008';
  ShowMessage(IntTostr(GetDateTimeType(s)));
  s:='13:00';
  ShowMessage(IntTostr(GetDateTimeType(s)));
  s:='25.10.2008 13:00';
  ShowMessage(IntTostr(GetDateTimeType(s)));

[NieL]

Антон Ю.Б., Kotofff Спасибо, но слишком сложно...
Покапался в unit'aх для работы с датой и временем ... и накатал, вроде, как наиболее удачный вариант реализации. Вот код:

   procedure GetDateTimeFmt(s: string);
   var
     dt: TDateTime;
   begin
     if DateSeparator <> '.' then
       s := StringReplace(s, '.', DateSeparator, [rfReplaceAll]);
     dt := StrToDateTime(s);
     if TimeOf(dt) > 0 then
       if DateOf(dt) > 0 then
         ShowMessage('Дата и время')
       else
         ShowMessage('Только время')
     else
       ShowMessage('Только дата');
   end;

//s2 := '13:00';
  s2 := '25.10.2008';
  //s2 := '25.10.2008 13:00';

  GetDateTimeFmt(s2);