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

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

Компонент UpDown

Radagast ©   (2006-11-28 17:17:00) 

Интересно, у него есть процедура OnClick, а как же возможно тогда выбирать между верхней и нижней стрелочкой? Т.е. выбирать, на какую именно стрелочку нажимаешь, а не нажимаешь  ли вообще...

---

Kolan   (2006-11-28 18:34:00) [1]

Незнаю насколько верный тест, но выходит что Case быстрее(и приятнее это точно :)

procedure TForm3.BitBtn1Click(Sender: TObject);
var
 I: Integer;
 Start: Integer;
 Temp: Integer;
begin
 Start := GetTickCount;
 for I := 0 to 100000000 do
   Temp := CheckCase(0);
 Memo1.Lines.Add('Case: '+IntToStr(GetTickCount - Start));

 Start := GetTickCount;
 for I := 0 to 100000000 do
   Temp := CheckIf(0);
 Memo1.Lines.Add('If: '+IntToStr(GetTickCount - Start));
end;

function TForm3.CheckCase(Param: Integer): Integer;
begin
 case Param of
   0: Result := 0;
   1: Result := 1;
   2: Result := 2;
 end;
end;

function TForm3.CheckIf(Param: Integer): Integer;
begin
 if Param = 0 then
   Result := 0
 else
   if Param = 1 then
     Result := 1
   else
     if Param = 2 then
       Result := 2;  
end;

---

ProgRAMmer Dimonych   (2006-11-28 18:18:00) [2]

Кстати, в одной книге читал, что серия последовательных if'ов идентичных одному case'у работает быстрее.

---

Reindeer Moss Eater   (2006-11-28 17:43:00) [3]

а как же возможно тогда выбирать между верхней и нижней стрелочкой?

ifили case, по вкусу

---

Наверх