Текущий архив: 2006.12.17;
Скачать: CL | DM;

Вниз

Компонент UpDown   Найти похожие ветки 

← →
Radagast   (2006-11-28 17:17) [0]

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

---

← →
Reindeer Moss Eater ©   (2006-11-28 17:43) [1]

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

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

---

← →
ProgRAMmer Dimonych ©   (2006-11-28 18:18) [2]

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

---

← →
Kolan ©   (2006-11-28 18:34) [3]

Незнаю насколько верный тест, но выходит что 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;

---

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

Текущий архив: 2006.12.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.072 c