Какие есть методы для поиска даты в тексте ?

[kakawkin]

Надо составить "алгоритм" для поиска даты в тексте для дальнейшего прикручивания к списку чтобы распределять строки с участниками по группам опираясь на возраст.
Пишу вот так:

var i,j,l:integer;
begin
 for i:=1 to 31 do
  for j:=1 to 12 do
   for l:=1980 to 2003 do
    if Pos(i+'.'+j+'.'+l,Memo1.Text)<>0 then showmessage('ÓÐÀÀÀÀÀ');

Существует ли более простой метод поиска ?

тоесть если дата будет 1.5.2000 то все гуд. а если 01.05.2000 то ненайдет

[Arigato]

Надо не полным перебором всех дат искать, а по маске: XX.XX.XXXX, плюс потом поверять дату на корректность (число не более 31, месяц не более 12, можно в зависимости от месяца устанавливать максимально значение в число).

[kakawkin]

if Pos(i+'.'+j+'.'+l,Memo1.Text)<>0 then showmessage('ЕСТЬ');
тогда как определить числа в маске если не через цикл ??? просто в голову ничего другого неприходится

[Arigato]

Тут нужны либо регулярки, либо конечный автомат.

Можно в лоб так: ищем цифру, далее проверяем строку на соответствие указанного шаблона, т.е. должна идти еще 1 цифра, точка и т.д.

[kakawkin]

в общем откапал такой код:

if MatchesMask(Memo1.Text,'??.??.????') then showmessage('YES YES YES YES YES');

куль!

[ZuBy]

var i,j,l:integer;
begin
 for i:=1 to 31 do
  for j:=1 to 12 do
   for l:=1980 to 2003 do
    if Pos(i+'.'+j+'.'+l,Memo1.Text)<>0 then showmessage('ÓÐÀÀÀÀÀ');

тоесть если дата будет 1.5.2000 то все гуд. а если 01.05.2000 то
ненайдет

если проблема только в этом, то

if Pos(format('%2.2d. %2.2.d. %2.2d', [i,j,l]),Memo1.Text)<>0 then showmessage('ÓÐÀÀÀÀÀ');

[Stilet]

А если дата не в германском формате будет?
А допустим 2010-10-17 что тогда?
Нет универсального алгоритма, разве что ИИ написать.

[Arigato]

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

в общем откапал такой код:

if MatchesMask(Memo1.Text,'??.??.????') then showmessage('YES YES YES YES YES');

куль!

Это не поможет.
Во-первых, данная функция применяется для определения, соответствует ли имя файла (пусть, любая строка) заданной маски или нет, но она не ищет в строке подстроки с заданной маской.
Во-вторых, ? - любой символ, а не только цифра.

[kakawkin]

а какие тогда есть способы из строки выдрать дату в виде хх.хх.хххх ??? просто у меня есть лист с участниками
и мне надо опираясь на дату рождения - вычитать ее из текущего года и сортировать их по возрастам

[Arigato]

Я же уже предлагал способ: находим цифру, далее проверяем последующие символы строки на соответствие шаблону. Далее ищем следующую цифру и т.д.