Bellic,
Мне непонятно, как ты открыл старый замок - новым ключом.. Да так, что бы он отлично работал... Хотяя, мне кажется что это не последняя твоя тема мольбы о помощи, в том что ты не понимаешь
По мне так, string или же RawByteString или же даже AnsiString никакого значения не имеет - совсем. Так как идёт всё тоже самое присвоение по индексу, за счёт одного - раза, выделения памяти под данные.
И что бы не быть многословным, приведу примеры, из твоего же кода
1.
2.
3.
var
FullName: string;
RawString: RawByteString;
Присвою им значение, и открою в отладчике. И гляну как ASM код отличается во всех случаях
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Unit1.pas.46: FullName := 'ytjyuk';
8D45F8 lea eax,[ebp-$08]
BA5C805D00 mov edx,$005d805c
E85A23E3FF call @UStrLAsg
Unit1.pas.47: RawString := 'ytjyuk';
8D45F4 lea eax,[ebp-$0c]
BA78805D00 mov edx,$005d8078
E8E923E3FF call @LStrLAsg
Unit1.pas.49: FullName[1] := 'H';
8D45F8 lea eax,[ebp-$08]
E8C924E3FF call @UniqueStringU
66C7004800 mov word ptr [eax],$0048
Unit1.pas.50: RawString[1] := 'H';
8D45F4 lea eax,[ebp-$0c]
E8C424E3FF call @UniqueStringA
C60048 mov byte ptr [eax],$48
Можем заметить, что при присвоении по индексу, в случае RawByte был использован byte прессование, а там word
И использованы функции
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.
procedure _LStrLAsg(var Dest: _AnsiStr; const Source: _AnsiStr);
var
P: Pointer;
begin
P := Pointer(Source);
if P <> nil then
_LStrAddRef(P);
P := Pointer(Dest);
Pointer(Dest) := Pointer(Source);
_LStrClr(P);
end;
procedure _UStrLAsg(var Dest: UnicodeString; const Source: UnicodeString); // locals
var
P: Pointer;
begin
if Pointer(Source) <> nil then
_UStrAddRef(Pointer(Source));
P := Pointer(Dest);
Pointer(Dest) := Pointer(Source);
_UStrClr(P);
end;
function _LStrClr(var S): Pointer;
var
P: PStrRec;
begin
if Pointer(S) <> nil then
begin
P := Pointer(PByte(S) - SizeOf(StrRec));
Pointer(S) := nil;
if P.refCnt > 0 then
begin
if AtomicDecrement(P.refCnt) = 0 then
FreeMem(P);
end;
end;
Result := @S;
end;
function _UStrClr(var S): Pointer;
var
P: PStrRec;
begin
if Pointer(S) <> nil then
begin
P := Pointer(PByte(S) - SizeOf(StrRec));
Pointer(S) := nil;
if P.refCnt > 0 then
begin
if AtomicDecrement(P.refCnt) = 0 then
FreeMem(P);
end;
end;
Result := @S;
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.
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
Winapi.Windows,
System.SysUtils;
var
StartTime, StopTime: Int64;
iCounterPerSec: Int64;
I, S: Integer;
procedure BeginTime;
begin
QueryPerformanceCounter(StartTime);
end;
procedure EndTime;
begin
if QueryPerformanceCounter(StopTime) and QueryPerformanceFrequency
(iCounterPerSec) then
Writeln(Format('%.6f', [(StopTime - StartTime) / iCounterPerSec]));
end;
procedure TestString;
var
str: string;
r: Integer;
begin
SetLength(str, 255);
for I := 0 to 50000000 do
begin
r := I mod 255;
str[r] := chr(r);
end;
end;
procedure TestRawByteString;
var
str: RawByteString;
r: Integer;
begin
SetLength(str, 255);
for I := 0 to 50000000 do
begin
r := I mod 255;
str[r] := AnsiChar(r);
end;
end;
procedure TestStringGlobalSet;
var
str: string;
r: Integer;
begin
for S := 0 to 10000 do
begin
str := '';
for I := 0 to 1000 do
str := str + chr(I);
end;
end;
procedure TestRawByteStringGlobalSet;
var
str: RawByteString;
r: Integer;
begin
for S := 0 to 10000 do
begin
str := '';
for I := 0 to 1000 do
str := str + AnsiChar(I);
end;
end;
begin
Write('String Set Index: ');
BeginTime;
TestString;
EndTime;
Write('RawByteString Set Index: ');
BeginTime;
TestString;
EndTime;
Writeln(' ---------- ');
Write('String Set global: ');
BeginTime;
TestStringGlobalSet;
EndTime;
Write('RawByteString Set global: ');
BeginTime;
TestRawByteStringGlobalSet;
EndTime;
Readln;
end.
Тесты такие
String Set Index: 0,294398
RawByteString Set Index: 0,291288
----------
String Set global: 0,584003
RawByteString Set global: 0,599694
Ураа!!! В случае установки по индексу, ты выиграл целых 0.00311!!!!! Поздравляю!!!!
Но в случае с установкой, + дописыванию, ты потеря целых 0.015691
Тестировал с включённой оптимизацией. Без неё
String Set Index: 0,288884
RawByteString Set Index: 0,294933
----------
String Set global: 0,570846
RawByteString Set global: 0,606367
Вообще !!! RawByteString проигрывает
