Какой код выполнится быстрее?

[Grag]

Тогда и "add" - это тоже команда сложения...

[_Engine_]

Ваш ассемблерный код более медленный.
Можете посмотреть, код, который генерирует компилятор, при сложении.
Или, тупо попробовать свою функцию в цикле, скажем от 1 до 10 000 000 с замером времени и сравнить с простым сложением.

[_-Re@l-_]

Можете посмотреть, код, который генерирует компилятор, при сложении.

А где его смотреть?

[Alex Cones]

Inc в принципе не просто сложение. Я бы сказал, что это "железная" функция.

[DRAgon™]

Может скинуть книжку по паскалю? Там в одной главе про asm есть что-то

[_-Re@l-_]

Я бы сказал, что это "железная" функция.

Железная в смысле самая наибыстрейшая функция?

ожет скинуть книжку по паскалю? Там в одной главе про asm есть что-то

Есть у меня книга такая. Автор- Фаронов.

[_Engine_]

Сообщение от _-Re@l-_

А где его смотреть?

Ctrl+Alt+C

[_-Re@l-_]

Не понял...не получилось...
Когда это нужно нажимать-то?

[_Engine_]

procedure TForm1.FormCreate(Sender: TObject);
var
t, z, q, t1 : Integer;

Function Add(Z,Q:Integer):Integer;
Var T:Integer;
Begin
asm
mov eax,0
add eax,z
add eax,q
mov t,eax
end;
Result:=T;
End;


begin
t1 := GetTickCount;
for q := 1 to 100000000 do
t := z+q;
ShowMessage('Время = ' + IntToStr(GetTickCount - t1));
ShowMessage(IntToStr(t));
t1 := GetTickCount;
for q := 1 to 100000000 do
t := Add(z, q);
ShowMessage('Время = ' + IntToStr(GetTickCount - t1));
ShowMessage(IntToStr(t));
end;

[_Engine_]

Сообщение от _-Re@l-_

Не понял...не получилось...
Когда это нужно нажимать-то?

Ставишь бреакпоинт на нужной строке, запускаешь программу, потом Ctrl+Alt+C