david
7ebea5ffa7
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@12 7f62d464-2af8-f54e-996c-e91b33f51cbe
28 lines
310 B
ObjectPascal
28 lines
310 B
ObjectPascal
unit Unit1;
|
|
|
|
procedure main;
|
|
var
|
|
i: Integer;
|
|
begin
|
|
for i := 1 to 100000 do
|
|
begin
|
|
func(i);
|
|
end;
|
|
end;
|
|
|
|
procedure func(i: Integer);
|
|
var
|
|
v1: Integer;
|
|
v2: Integer;
|
|
v3: Integer;
|
|
v4: Integer;
|
|
begin
|
|
v1 := i + 1;
|
|
v2 := i + 2;
|
|
v3 := i + 3;
|
|
v4 := i + 4;
|
|
end;
|
|
|
|
end.
|
|
|