Модераторы: 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