| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Оптимизация

FS ©   (2009-04-15 14:30:00) 

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

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;


---

Ega23   (2009-04-15 14:41:00) [1]

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

---

clickmaker   (2009-04-15 14:39:00) [2]

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

---

Наверх