Поиск даты в тексте с помощью pos Delphi

[fimcha98]

помогите решить такое задание, подается массив текста, нужно найти позицию первой даты, если нет то выдать сообщение что нет, формат даты такой 12.12.2016.
Что нужно дописать в строку Q для распознания даты

procedure TForm1.Button1Click(Sender: TObject);
var S,Q:string; i:integer;
begin
Q:=;
S:=memo1.text;
i:=Pos(Q,S);
edit1.Text:=inttostr(i);
if i<1 then ShowMessage('Строка отсутствует')
end;

[type_Oleg]

За 1 вызов pos не получится.
Как вы будете определять, что это - не даты:
ку.ку.куку
99.88.2016
?

[Аватар]

Ни чего. Нужно искать точку, слева и справа от которой по две цифры, еще правее точка и 4 цифры. И все эти цифры в совокупности правильная дата. А ты хочешь просто одним Pos-ом найти. RegExpr можно подключить

[Алексей_2012]

ну можно обойтись без pos,a

если использовать TMaskEdit, затем завести две строковые переменные,

в одной из них - введенная дата с точками
в другой - i-ая информация по текущей строке,

проверить можно циклом по двум строкам на наличие точки в 3 и 6 позиции, а в других позициях - диапозон от '0' до '9' (посимвольно), если символ входит в диапозон, то сравнивать символы между собой, если они равны, то истина)

го*нокод, конечно, но автору поможет