|
03.08.2020, 17:06
#39986195
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
rgreat,
Не TValue тормоз, а дженерики тормознутые.
Variant
0.000268
6,69692879491417E304
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
procedure TForm1.Button1Click(Sender: TObject);
var
A, b, C: Variant;
I: integer;
begin
A := 0;
b := 0;
C := 0;
StartTime;
for I := 1 to 1000 do
begin
A := (5 * I) / 2;
b := b + (A / I) + b;
C := (b - A) * A;
end;
ShowMessage(PrintTime(T1) + #13 + VarToStr(C))
end;
TValue
0.000365
6,69692879491417E304
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
procedure TForm1.Button2Click(Sender: TObject);
var
A, b, C: TValue;
I: integer;
begin
A := 0;
b := 0;
C := 0;
StartTime;
for I := 1 to 1000 do
begin
A := (5 * I) / 2;
b := b.AsExtended + (A.AsExtended / I) + b.AsExtended;
C := (b.AsExtended - A.AsExtended) * A.AsExtended;
end;
ShowMessage(PrintTime(T1) + #13 + C.ToString)
end;
Но стоит поменять с AsExtended
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
function TValue.AsExtended: Extended;
begin
if not IsEmpty then
begin
if FTypeInfo = System.TypeInfo(Extended) then
Exit(FAsExtended)
else if FTypeInfo^.Kind = tkFloat then
case GetTypeData(FTypeInfo)^.FloatType of
ftSingle: Exit(FAsSingle);
ftDouble: Exit(FAsDouble);
ftExtended: Exit(FAsExtended);
end;
end;
Result := AsType<Extended>;
end;
На прямой вызов AsType<Extended>
0.001695
6,69692879491417E304
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
procedure TForm1.Button3Click(Sender: TObject);
var
A, b, C: TValue;
I: integer;
begin
A := 0;
b := 0;
C := 0;
StartTime;
for I := 1 to 1000 do
begin
A := (5 * I) / 2;
b := b.AsType<Extended> + (A.AsType<Extended> / I) + b.AsType<Extended>;
C := (b.AsType<Extended> - A.AsType<Extended>) * A.AsType<Extended>;
end;
ShowMessage(PrintTime(T1) + #13 + C.ToString)
end;
Сразу какие то Цифры огромные в потери вызова
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, rtti;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
T1: Int64;
function sprintf(S: PAnsiChar; const Format: PAnsiChar): integer; cdecl;
varargs; external 'msvcrt.dll';
procedure StartTime;
begin
QueryPerformanceCounter(T1);
end;
function PrintTime(T: Int64): AnsiString;
var
A, b: Int64;
begin
Result := '';
if QueryPerformanceCounter(A) and QueryPerformanceFrequency(b) then
begin
SetLength(Result, 25);
SetLength(Result, sprintf(PAnsiChar(Result), '%f', single((A - T) / b)));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
A, b, C: Variant;
I: integer;
begin
A := 0;
b := 0;
C := 0;
StartTime;
for I := 1 to 1000 do
begin
A := (5 * I) / 2;
b := b + (A / I) + b;
C := (b - A) * A;
end;
ShowMessage(PrintTime(T1) + #13 + VarToStr(C))
end;
procedure TForm1.Button2Click(Sender: TObject);
var
A, b, C: TValue;
I: integer;
begin
A := 0;
b := 0;
C := 0;
StartTime;
for I := 1 to 1000 do
begin
A := (5 * I) / 2;
b := b.AsExtended + (A.AsExtended / I) + b.AsExtended;
C := (b.AsExtended - A.AsExtended) * A.AsExtended;
end;
ShowMessage(PrintTime(T1) + #13 + C.ToString)
end;
procedure TForm1.Button3Click(Sender: TObject);
var
A, b, C: TValue;
I: integer;
begin
A := 0;
b := 0;
C := 0;
StartTime;
for I := 1 to 1000 do
begin
A := (5 * I) / 2;
b := b.AsType<Extended> + (A.AsType<Extended> / I) + b.AsType<Extended>;
C := (b.AsType<Extended> - A.AsType<Extended>) * A.AsType<Extended>;
end;
ShowMessage(PrintTime(T1) + #13 + C.ToString)
end;
end.
|
|
|
