Модераторы: 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 писал(а):Когда из под отладчика? Или в обычной работе?
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1