Модераторы: alexs, Модераторы
procedure DoTrySetDate;
var
D:TDateTime;
begin
if Text[1] in ['0'..'9'] then
begin
try
D:=StrToDate(Text);
FPopup.Date:=D;
except
if FDefaultToday then
FPopup.Date:=sysutils.Date;
end;
end
else
if FDefaultToday then
FPopup.Date:=sysutils.Date;
end;
alexs писал(а):а когда ошибка почвляется?
alexs писал(а):Когда из под отладчика? Или в обычной работе?
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4