А вот тест в котором paxScript более чем в 2 раза лучше себя показывает чем FastScript
итак код paxScript:
delphi Код:
uses SysUtils,dialogs;
var
i, k, j, u, x, y, z: Integer;
t,r: double;
begin
t := time();
z := 20;
for i := 0 to z do
for j := 0 to z do
for u := 0 to z do
for x := 0 to z do
for y := 0 to z do
k := k xor i xor j xor u xor x xor y;
r:= (time() - t)*86400000;
showmessage(String(r));
showmessage(String(k));
end.
код FastScript:
delphi Код:
procedure Init; //Вызывается при включении скрипта
var
i, k, j, u, x, y, z: Integer;
t,r: double;
begin
t := time();
z := 20;
for i := 0 to z do
for j := 0 to z do
for u := 0 to z do
for x := 0 to z do
for y := 0 to z do
k := k xor i xor j xor u xor x xor y;
r:= (time() - t)*86400000;
showmessage(floattostr(r));
showmessage(IntToStr(k));
end;
begin
end.
Результаты:
paxScript - 1563 мс, 1625 мс, 1609 мс
FastScript - 3797 мс, 3828 мс, 3781 мс
Добавлено через 5 минут
кстати тот же код скомпиленый дельфиком выполняется за 15 мс так что в сравнении с реальным кодом отставание всёравно дикое...