парсинг текста, вытащить дату

[HellMercenariess]

Пытаюсь из текстового файла пытаюсь изьять датоподобные строки

const
  D = ['0'..'9','.',':'];
 var TDT:TDateTime;
      F: TextFile;
      I,ix,len: Integer;
      SDT,S:string;

 while not  EOF(F) do
   begin
     SDT:='';
     Readln(F, S);  
   Len := Length(S);
    for i :=1  to Len do
    if S[i] in D then SDT:=SDT+s[i] ;
   if length(sdt)=10 then dPrint(sdt);

Перед чтением слудующей строки SDT обнуляется , но проблема в том, что в строках в которых цифр явно меньше 10 набиваются точки, и на обработку(небезопасная StrToDate) попадает примерно такой текст:

11....2.3..

[_SERGEYX_]

Там в файле даты всегда стоят в начале строки.

var d: TDateTime;
.....................
ShortDateFormat:= 'dd.mm.yyyy';
try
d:= StrToDate(copy(s[i],0,10)); //Значит это дата
except
end;

Или даты могут быть в любом месте текста?

[HellMercenariess]

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

Там в файле даты всегда стоят в начале строки.

var d: TDateTime;
.....................
ShortDateFormat:= 'dd.mm.yyyy';
try
d:= StrToDate(copy(s[i],0,10)); //Значит это дата
except
end;

Или даты могут быть в любом месте текста?

На этой упряжке ни в какие ворота не въедешь.
Вся соль в том и есть чтобы определить те строки которые в дату можно форматнуть.

[Аватар]

На этой упряжке ни в какие ворота не въедешь.
Вся соль в том и есть чтобы определить те строки которые в дату можно форматнуть.

Не нравится такой подход, как по мне вполне съедобный, то ловите строки длиной 16 байт, чтобы в соответствующих позициях были точки, пробел и двоеточие, остальные цифры, а потом все равно try и StrToDate. Или будете высчитывать нет ли там 15-го месяца или 32-го числа?

[eoln]

Регулярными выражениями http://regexpstudio.com/Downloads/regexpr_RU.rar

    RegExpr.Expression := '\d{2}.\d{2}.\d{4} \d{2}:\d{2}';//надеемся что нет даты типа 88.74.5947 37:86
    if RegExpr.Exec(текст_текст_текст) then
    repeat
      writeln(RegExprr.Match[0]);
    until not RegExpr.ExecNext;

Ну а потом как уже сказали через try в дату.
А можно и без try, регулярное выражение усложнить, если есть вероятность встретить не верно записанную дату.

[HellMercenariess]

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

Регулярными выражениями http://regexpstudio.com/Downloads/regexpr_RU.rar

Ну а потом как уже сказали через try в дату.
А можно и без try, регулярное выражение усложнить, если есть вероятность встретить не верно записанную дату.

Реально полезная штука, благодарю за помощь.