paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-15 20:59:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: optimize access to textbuffer.

Browse Source
This commit is contained in:
Martin 2024-06-25 12:59:52 +02:00
parent 3a9a269fd1
commit 5d9f393aae
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/synedit/synedittextbuffer.pp
View File

@ -1778,9 +1778,12 @@ begin
end; end;
function TSynEditStringMemory.GetPChar(ALineIndex: Integer; out ALen: Integer): PChar; function TSynEditStringMemory.GetPChar(ALineIndex: Integer; out ALen: Integer): PChar;
var
ip: Pointer;
begin begin
ALen := length((PString(ItemPointer[ALineIndex]))^); ip := ItemPointer[ALineIndex];
Result := (PPChar(ItemPointer[ALineIndex]))^; ALen := length(PString(ip)^);
Result := PPChar(ip)^;
end; end;
procedure TSynEditStringMemory.Move(AFrom, ATo, ALen: Integer); procedure TSynEditStringMemory.Move(AFrom, ATo, ALen: Integer);