|
Список классов vs списка записей - в чем преимущество?
#39762601
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
|
rgreat,
Кхм. Странное преимущество. Когда я могу просто MyArray.CurrentLength и получить текущий размер.
rgreat В конце будет мусор из неиспольземых элементов, что для меня неприемлемо.
А ты хранишь типа, ключи к другому массиву ??? Если в другом массиве удалилось значение, то в другом это отобразится и следующий добавленный элемент встанет на место удалённого?
0.722683 секунд, при добавление 50000000 элементов
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.
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
windows, System.SysUtils;
type
PDynArrayRec = ^TDynArrayRec;
TDynArrayRec = packed record
{$IFDEF CPU64BITS}
_Padding: Integer; // Make 16 byte align for payload..
{$ENDIF}
RefCnt: Integer;
Length: NativeInt;
end;
PDynArrayTypeInfo = ^TDynArrayTypeInfo;
TDynArrayTypeInfo = packed record
kind: TTypeKind;
name: Byte; { string[0]; }
elSize: Integer;
elType: ^PDynArrayTypeInfo;
varType: Integer;
end;
ArrayEx<T> = record
v: TArray<T>;
CurrentLength: NativeUInt;
function add(Value: T): NativeUInt;
end;
procedure ArrayOfPointerSetLength(ptr: PPointer; const NewLength: NativeInt);
procedure ArrayOfPointerClear(const ptr: PPointer);
function __DynArrayRefCnt(const A: Pointer): Integer; inline;
begin
Result := PDynArrayRec(PByte(A) - SizeOf(TDynArrayRec))^.RefCnt;
end;
var
p: Pointer;
begin
p := ptr^;
if p <> nil then
begin
ptr^ := nil;
if __DynArrayRefCnt(p) > 0 then
begin
if AtomicDecrement(PDynArrayRec(PByte(p) - SizeOf(TDynArrayRec))
^.RefCnt) = 0 then
begin
Dec(PByte(p), SizeOf(TDynArrayRec));
SysFreeMem(p);
end;
end;
end;
end;
const
elSize = SizeOf(Pointer);
var
oldLength, minLength: NativeInt;
neededSize: NativeInt;
p: Pointer;
begin
p := ptr^;
neededSize := NewLength * elSize + SizeOf(TDynArrayRec);
if p = nil then
p := SysAllocMem(neededSize)
else
begin
Dec(PByte(p), SizeOf(TDynArrayRec));
oldLength := PDynArrayRec(p).Length;
if PDynArrayRec(p).RefCnt = 1 then
p := SysReallocMem(p, neededSize)
else
begin
p := SysGetMem(neededSize);
minLength := oldLength;
if minLength > NewLength then
minLength := NewLength;
Move(PByte(ptr^)^, (PByte(p) + SizeOf(TDynArrayRec))^,
minLength * elSize);
ArrayOfPointerClear(ptr^);
end;
if NewLength > oldLength then
FillChar((PByte(p) + SizeOf(TDynArrayRec) + elSize * oldLength)^,
elSize * (NewLength - oldLength), 0);
end;
PDynArrayRec(p).RefCnt := 1;
PDynArrayRec(p).Length := NewLength;
Inc(PByte(p), SizeOf(TDynArrayRec));
ptr^ := p;
end;
function ArrayEx<T>.add(Value: T): NativeUInt;
const
Plus = 16; // 32
var
MaxLength, NewLength: Integer;
typeInfo, pv: Pointer;
pv2: PPointer;
begin
if PDynArrayRec(v) = nil then
MaxLength := 0
else
MaxLength := PDynArrayRec(NativeUInt(v) - SizeOf(TDynArrayRec)).Length;
if CurrentLength >= MaxLength then
ArrayOfPointerSetLength(Pointer(@v), MaxLength + Plus);
v[CurrentLength] := Value;
Inc(CurrentLength);
end;
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;
var
arr: ArrayEx<Integer>;
i: Integer;
T: Int64;
begin
try
QueryPerformanceCounter(T);
for i := 0 to 50000000 do
arr.add(i);
Writeln(PrintTime(T));
for i := 0 to 50000000 do
if arr.v[i] <> i then
Writeln('Faild!!: ' + i.ToString);
Writeln('End');
{ TODO -oUser -cConsole Main : Insert code here }
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
Readln;
end.
Самый простой 0.9 секунд
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.
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
windows, System.SysUtils;
type
ArrayEx<T> = record
v: array of T;
CurrentLength: NativeUInt;
function add(Value: T): NativeUInt;
end;
function ArrayEx<T>.add(Value: T): NativeUInt;
const
Plus = 16; // 32
var
MaxLength: Integer;
begin
MaxLength := Length(v);
if CurrentLength >= MaxLength then
SetLength(v, MaxLength + Plus);
v[CurrentLength] := Value;
inc(CurrentLength);
end;
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;
var
arr: ArrayEx<Integer>;
i: Integer;
T: Int64;
begin
try
QueryPerformanceCounter(T);
for i := 0 to 50000000 do
arr.add(i);
Writeln(PrintTime(T));
for i := 0 to 50000000 do
if arr.v[i] <> i then
Writeln('Faild!!: ' + i.ToString);
Writeln('End');
{ TODO -oUser -cConsole Main : Insert code here }
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
Readln;
end.
На этот Я вообще НЕ надеялся. Но если убрать length то 0.9 сек
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.
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
windows, System.SysUtils;
type
PDynArrayRec = ^TDynArrayRec;
TDynArrayRec = packed record
{$IFDEF CPU64BITS}
_Padding: Integer; // Make 16 byte align for payload..
{$ENDIF}
RefCnt: Integer;
Length: NativeInt;
end;
ArrayEx<T> = record
v: array of T;
CurrentLength: NativeUInt;
function add(Value: T): NativeUInt;
end;
function ArrayEx<T>.add(Value: T): NativeUInt;
const
Plus = 16; // 32
var
MaxLength: Integer;
begin
if PDynArrayRec(v) = nil then
MaxLength := 0
else
MaxLength := PDynArrayRec(NativeUInt(v) - SizeOf(TDynArrayRec)).Length;
if CurrentLength >= MaxLength then
SetLength(v, MaxLength + Plus);
v[CurrentLength] := Value;
inc(CurrentLength);
end;
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;
var
arr: ArrayEx<Integer>;
i: Integer;
T: Int64;
begin
try
QueryPerformanceCounter(T);
for i := 0 to 50000000 do
arr.add(i);
Writeln(PrintTime(T));
for i := 0 to 50000000 do
if arr.v[i] <> i then
Writeln('Faild!!: ' + i.ToString);
Writeln('End');
{ TODO -oUser -cConsole Main : Insert code here }
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
Readln;
end.
А теперь обычный TList
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.
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
windows, System.SysUtils, classes;
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;
var
arr: TList;
i: Integer;
T: Int64;
begin
try
arr := TList.Create;
QueryPerformanceCounter(T);
for i := 0 to 50000000 do
arr.add(Pointer(i));
Writeln(PrintTime(T));
Writeln('End');
{ TODO -oUser -cConsole Main : Insert code here }
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
Readln;
end.
Выдал 0.724371
Короче выдумывать костыли не стоит
... Я теперь уверен что и твоя чуда магическая штука, не чуть НЕ быстрее |
|
|
