Оптимезация программ... Как лучше?

[Altera]

Привет всем!
У меня тут парочка вопросов по оптимезазии программ на delphi.

Какой вариант будит работать быстрее
1)

var
is_check: boolean;
procedure{ чекаем / анчекаем }tMain_form.check_boxClick(sender: tObject);
begin
   is_check := check_box.checked;
end;

procedure{ Кликаем по кнопке }tMain_form.test_buttonClick(sender: tObject);
begin
   if is_check then showMessage('YES') else showMessage('NO');
end;

2)

procedure{ Кликаем по кнопке}tMain_form.test_buttonClick(sender: tObject);
begin
   if check_box.checked then showMessage('YES') else showMessage('NO');
end;

Если у вас есть советы по оптимезации, пожалуйсто напишите...
Спасибо заранее!

[FaTaL]

Второй код более похож на русский. С первым что-то замутили, хотя тоже работать будет. А вообще во времени ни капли не потеряете, т.к. современные компы это всё за милисекунду обработают!

[Altera]

Ну я знаю, но когда комп перегружен...

Я слышал, что a+a - делается быстрее, что a*2... правдо?

[B_N]

Если чекбокс будет "чекнут" не щелканьем по нему, а любым другим способом, то переменная is_check утратит свой смысл. Как и весь первый вариант кода.

[SunKnight]

Я слышал, что a+a - делается быстрее, что a*2... правдо?

с точки зрения оптимизации то x*n будет выполнятся дольше чем аналог x+x+x+x+...+Xn. И если взять циклы:

for i:=0 to 2 do
z[i]:=i+1;

медленее работает чем

z[0]:=1;
z[1]:=2;
z[2]:=3;

[mutabor]

Там нечего оптимизировать. Элементарная процедура. Если разобрать по полочкам, переменная is_check лишняя, но обращение к ней в проверке произойдет быстрее чем к свойству объекта check_box, к-рый унаследован от другого объекта и т.д. Хочешь узнать что быстрее, запусти в цикле миллион повторений.

А вообще сложение выполняется быстрее чем вычитание, в квадрат и в куб лучше возводить перемножением а не функцией, sin, cos быстрее не высчитывать а брать из массива.
Проверки нужно организовывать так, чтобы избежать лишних проверок, если первая к примеру сработала, другие чтобы не проверялись.
Продолжать можно долго, как-то читал в журнале (бумажном) статью хорошую про оптимизацию программ. Надо будет в сети поискать, если найду дам ссылку.

[Altera]

Ну а вот как, например, пишут приложение, где много настроек?
Не в каждой же процедуре идёт сравнение типа:

if radioButton1.checked then
begin
....
....
....
....
end
else
begin
....
....
....
....
end;

[Stilet]

Там делают цикл, в котором настройки проверяются, перед этим они формируются в массив.

Я слышал, что a+a - делается быстрее, что a*2... правдо?

Иногда для ускорения умножения на четное число используют более быструю операцию shl, типа такого: caption:=IntToStr(StrToIntDef(Edit1 .Text,0) shl 1);
А вообще оптимизация - это компромис между скоростью и написанием кода так чтоб его потом было удобнее понимать.
Кое где стоит поступиться скоростью зато код будет более понятным.

[alexBlack]

С. Макконнелл. "Совершенный код". Рекомендую.

Еще можно "Веревка достаточной длины, чтобы выстрелить себе в ногу".

[Somebody]

Иногда для ускорения умножения на четное число используют более быструю операцию shl

Turbo Pascal уходит в прошлое. Delphi всё нормально оптимизирует, поэтому можно писать * и div - получатся shl и shr. Используются они не для чётных чисел, а для двойки в степени. Умножение в скомпилированном коде (смотрел в Delphi 6) может производиться с помощью одной или двух инструкций add, shl, lea, а если это невозможно - то только в этом случае mul, imul.