Size: a a a
SB
Y
TIpHtmlPanel как отдельным компонентом, для своих целей, пользуешься?k
SB
TIpHtmlPanel как отдельным компонентом, для своих целей, пользуешься?AS
k
AS
SB
AS
SB
AS
DB
DB
DB
AS
AS
AS
DB
AS
program project2;
{$mode objfpc}{$H+}
uses
Classes,
SysUtils;
{$R+}
const
MAX_COUNT = 10000000;
var
i: integer;
j: integer;
arr: array [0..MAX_COUNT] of integer;
arr2: array of integer;
sc, ec: QWord;
begin
setlength(arr2, MAX_COUNT + 1);
sc := GetTickCount64;
for i := 0 to MAX_COUNT do
begin
arr[i] := i - 1;
arr2[i] := arr[i];
j := arr[2];
end;
ec := GetTickCount64;
writeln(j);
writeln(ec - sc);
readln;
end.
DB