|
Тема |
Chetene na string ot PByte |
|
Автор |
Wise Guy (да бе умен...) |
|
Публикувано | 09.05.02 22:03 |
|
|
Nqkoi moje li da dade edno ramo. Imam edin memorymappedfile i dannite sa vuv PByte. Imam index za nachaloto i kraq na teksta, koito mi trqbva. Kak da si kopiram po nai-dobriq nachin teksta ot PByte. Eto kakvo pravq vuv momenta:
function GetData(startindex, endindex: Integer): string;
var
PData: PChar;
i: Cardinal;
begin
Result := '';
PData := PChar(FData); //FData: PByte na MMF
if startindex > endindex then
endindex := StrLen(PData) - 1;
for i := startindex to endindex do
Result := Result + PData;
end; //End of GetData
Ne mi izglejda optimizirana tazi funkciika.
by Wise Guy
|
| |
|
|
|