Izvinqvaite no pak [i ] razvalq neshtata.
Qvno vse pak nikoi ne moje da mi pomogne. Kato potursih iz SDK vidqh edno CopyMemory i kato dadoh da mu vidq source-a vidqh che polzva Move. Sled tova razgledah i Move i napravih popravkite

function TADic.GetData(startindex, endindex: Integer; Eng: Boolean): string;
var
PData: PChar;
i, int: Integer;

begin
Result := '';
PData := PChar(FData);

if startindex> endindex then
endindex := StrLen(PData) - 1;

int := endindex - skipindex;
SetLength(Result, int); // first allocate space
for i := 1 to int do //then copy the data
Result[i ] := PData[i + skipindex - 1];
end; //End of GetData

Ideqta e purvo da se zadeli pamet i sled tova da se zapulva. Predi tova sus Result := Result + PData; qvno postoqnniq resize na Result e zabavql rabotata. Nqkakvi komentari. Po-dobri predlojeniq? Mislite li che asm shte e po-burzo (trqbva mi vizmojno nai golqmata optimizaciq)...

by Wise Guy

Съдържаниет е скрито
Влезте за да го видите