[The Shadow]

Как сделать так, чтобы в коде:

Код:

...
try
StrToDate(Edit.Text);
...
except
...
end;

Исключение не возникало только в том случае, если Edit1.Text - это строка вида дд.мм?

[Zakharka]

по идеи должно работать так:


var
DF:TFormatSettings;
begin

try
DF.ShortDateFormat:='dd.mm';
StrToDate(Edit1.Text,DF);
except

end;


но почему-то не работает!!

[AlexSku]

Написано, надо добавить GetLocaleFormatSettings() для уведомления системы.

Код:

  DF.ShortDateFormat:='dd.mm';
  GetLocaleFormatSettings(1, DF);
  StrToDate(Edit1.Text, DF);

[The Shadow]

Спасибо!
Нашел еще один способ, я проверяю, чтобы 3 символ был точкой, а потом делаю StrToDate