Форум: "Начинающим";
Текущий архив: 2009.05.31;
Скачать: [xml.tar.bz2];

Вниз

Оптимизация   Найти похожие ветки 

← →
FS   (2009-04-15 14:30) [0]

Помогите с оптимизацией. Вот код:

procedure TForm1.Button1Click(Sender: TObject);

 procedure SetDT(s: string);
 var
   dt: TDateTime;
 begin
   try
     dt := StrToDateTime(s);
     if DateOf(dt) > 0 then
       dedt_CondVal.Value := DateOf(dt);
     if TimeOf(dt) > 0 then
       tedt_CondVal.Value := TimeOf(dt);
   except
     raise Exception.CreateFmt("Строка "%s" не является допустимой " +
       "для ввода даты/времени", [s]);
   end;
 end;

begin
 SetDT("01.01.2009 00:01");
end;


---

← →
clickmaker ©   (2009-04-15 14:39) [1]

рад бы помочь, но не пойму, что оптимизировать нужно

---

← →
Ega23 ©   (2009-04-15 14:41) [2]

ИМХО, сам стиль отвратный. Зачем внутренняя процедура? Зачем во внутренней процедуре идёт работа с контролами формы?
Почему на сделать приватный метод формы SetDT ?

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.05.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.004 c