Отладка даты в Table

[photozaz]

в компоненте Table1 имется колонка "Дата рождения" с установленным типом Date(т.е. формат например 12.07.2008). Подскажите, как можно можно отладить эту колонку, ну что бы при вводе в некорректном формате (например: '000.04.1980" или просто текст ) выводилось сообщение об ошибке.
заранее благодарен!

[Yurk@]

function ScanDate(S:string):boolean;
var
i, iSL:integer;
begin
iSL:=0;
Result:=False;
if S>'' then
  begin
  for i:=1 to 10 do
  if S[i]='.' then Inc(iSL);
  if (iSL=2) AND (S[3]='.') AND (S[6]='.')
  then
    Result:=True
  else DM.ShowMess('Некоректне значення поля дати. Потрібний формат дати (ДД.ММ.РРРР)');
  end;
end;

Проверка на корректность разстановки точек в дате!

[Gorychev]

Проверка на корректность расстановки точек в дате!

А если ввести FF.FF.FFFF, или 99.88.7777? Чтоб функция нормально работала, ее нужно существенно усложнить. Впрочем это уже забота автора.
Того же эффекта можно добиться с помощью copy

function ScanDate(S:string):boolean;
begin
  Result:=(copy(s,3,1)='.') and (copy(s,6,1)='.');
end;

Лучше использовать MSAccess, там есть тип поля Дата\время в котором можно указать маску ввода. И все дела.

[Andrei]

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

в компоненте Table1 имется колонка "Дата рождения" с установленным типом Date(т.е. формат например 12.07.2008). Подскажите, как можно можно отладить эту колонку, ну что бы при вводе в некорректном формате (например: '000.04.1980" или просто текст ) выводилось сообщение об ошибке.
заранее благодарен!

Функция TryStrToDate из модуля SysUtils поможет вам. Аналогичная тема обсуждалась http://www.programmersforum.ru/showthread.php?t=25854

[photozaz]

А подскажите, как проверить относится ли данный текст к типу DateTime, если да, то (...) если нет, то (...). очень надо, подскажите!