тип DateTime

[photozaz]

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

var d: TDateTime;
//...........
d:=  strtodatetime( table1.Fields.FieldByName('Дата рождения').AsString);

то если данное поле не соответсвует формату DateTime, то выскакивает неприятная ошибка и ее надо отсеять... поэтому я думаю, что перед тем как присваивать надо проверить подойдет ли формат или нет. ну это моя идея, может есть что-то получше??

[Viteef]

try 
d:=  strtodatetime( table1.Fields.FieldByName('Дата рождения').AsString);
except on неприятная ошибка 
 do
 действие после ошибки
 end;

[Yurk@]

Функция
TryStrToDate

[photozaz]

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

try 
d:=  strtodatetime( table1.Fields.FieldByName('Дата рождения').AsString);
except on неприятная ошибка 
 do
 действие после ошибки
 end;

я так пробывал, использовал такой код ::

try
  d:=  strtodatetime( table1.Fields.FieldByName('Дата рождения').AsString);
except
  on EIntError do
    MessageDlg('Ошибка целочисленной операции',
                mtWarning, [mbOk], 0);
else ShowMessage('Неверный формат даты ' );
      exit;

end;

но все равно сразу вылетает ошибка делфи, а потом только срабатывает этот код и высвечивается сообщение ('Неверный формат даты ' ).

использовал и TryStrToDateTime но все равно вылетает ошибка

if TryStrToDateTime(table1.Fields.FieldByName('Дата рождения').AsString, d)
then

  begin
    Table1.Edit;
    table1.Fields.FieldByName('Дата рождения').AsString:=datetimetostr(d);// на этом этапе, если формат не верный вылетает ошибка

[mihali4]

сразу вылетает ошибка делфи, а потом только срабатывает этот код

Это вполне естественно для режима отладки под Дельфи.
Запустите ваш экзешник не из-под Дельфи, а напрямую, и "ошибка делфи" вылетать не будет.

[photozaz]

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

Это вполне естественно для режима отладки под Дельфи.
Запустите ваш экзешник не из-под Дельфи, а напрямую, и "ошибка делфи" вылетать не будет.

Большое спасибо!! проверил, действительно все работает!!

[_SERGEYX_]

А чтобы подобное не повторялось заходим в > menu > tools > debugger options > language exceptions > и убираем галочку с "Stop on Delphi exceptions" (это для delphi 7, для других не помню, ..нет под рукой)

[mihali4]

А вот это зря - на этапе отладки без этого будет столько непонятных зависаний...