|
Fast Report - апострофы в переменных
#39956563
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
Ну вот, провёл тест. Сделал ещё 1 функцию копию. Но сделал фиксировано длину 5000 символов, это именно та длина, которая генерируется при
1.
2.
for i := 0 to 100 do
S := S + 'Ijisjergije488reujiorjt' + i.ToString + #13#10;
По этому сейчас 1 место под выделения памяти
TestBuild: 0.738177
TestBuild5000Bytes: 0.729484
BuildStringLiteral: 3.590787
Разница составляет в пук младенца - 0.008693 и то, потому что я убрал
1.
if (current + c) > Len then
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.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Memo2: TMemo;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
type
TCallList = function(List: TStrings): String;
var
T, T1, T3: Int64;
function sprintf(S: PAnsiChar; const Format: PAnsiChar): integer; cdecl; varargs; external 'msvcrt.dll';
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;
function BuildStringLiteral(List: TStrings): String;
const
sLineBreak = '#13#10';
var
i, Sz, Len: integer;
begin
if List.Count = 0 then
begin
Result := '''' + '''';
Exit;
end;
Sz := 0;
for i := 0 to List.Count - 1 do
Inc(Sz, Length(List[i]) + 8);
Dec(Sz, 6);
SetLength(Result, Sz);
Sz := 1;
for i := 0 to List.Count - 1 do
begin
Result[Sz] := '''';
Len := Length(List[i]);
CopyMemory(@Result[Sz + 1], @List[i][1], Len * SizeOf(Char));
Inc(Sz, Len + 2);
Result[Sz - 1] := '''';
if i < List.Count - 1 then
CopyMemory(@Result[Sz], @sLineBreak[1], Length(sLineBreak) * SizeOf(Char));
Inc(Sz, 6);
end;
end;
function TestBuild(Lines: TStrings): string;
const
SizeAlloc = 32 * 4;
var
i, Len, current, c: Cardinal;
wd: string;
begin
i := Lines.Count;
if i = 0 then
Exit('''' + '''');
Len := SizeAlloc;
SetLength(Result, Len);
wd := '''' + Lines[0] + '''';
current := Length(wd) + 1;
Move(wd[1], Result[1], current * SizeOf(Char));
for i := 1 to i - 1 do
begin
wd := '#13#10' + '''' + Lines[i] + '''';
c := Length(wd);
if (current + c) > Len then
begin
Inc(Len, SizeAlloc);
SetLength(Result, Len);
end;
Move(wd[1], Result[current], c * SizeOf(Char));
Inc(current, c);
end;
SetLength(Result, current - 1);
end;
function TestBuild5000Bytes(Lines: TStrings): string;
const
SizeAlloc = 5000;
var
i, Len, current, c: Cardinal;
wd: string;
begin
i := Lines.Count;
if i = 0 then
Exit('''' + '''');
Len := SizeAlloc;
SetLength(Result, Len);
wd := '''' + Lines[0] + '''';
current := Length(wd) + 1;
Move(wd[1], Result[1], current * SizeOf(Char));
for i := 1 to i - 1 do
begin
wd := '#13#10' + '''' + Lines[i] + '''';
c := Length(wd);
// if (current + c) > Len then
begin
// Inc(Len, SizeAlloc);
// SetLength(Result, Len);
end;
Move(wd[1], Result[current], c * SizeOf(Char));
Inc(current, c);
end;
SetLength(Result, current - 1);
end;
function CallList(c: TCallList; List: TStrings): AnsiString;
var
arr: Pointer;
i, r: integer;
begin
QueryPerformanceCounter(T1);
for r := 0 to 3 do
for i := 0 to 1000 do
c(List);
Result := PrintTime(T1);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Lines.Add('TestBuild: ' + CallList(TestBuild, Memo1.Lines));
Memo2.Lines.Add('TestBuild5000Bytes: ' + CallList(TestBuild5000Bytes, Memo1.Lines));
Memo2.Lines.Add('BuildStringLiteral: ' + CallList(BuildStringLiteral, Memo1.Lines));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage(TestBuild(Memo1.Lines));
ShowMessage(BuildStringLiteral(Memo1.Lines));
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
S: string;
begin
S := '';
for i := 0 to 100 do
S := S + 'Ijisjergije488reujiorjt' + i.ToString + #13#10;
Memo1.Text := S;
end;
end.
|
|
|
