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

SynEdit: Improve d8e4b249c3, initialize out variable. issue #41553

Browse Source
This commit is contained in:
Martin 2025-04-01 13:38:27 +02:00
parent a0891522ed
commit ebd7f56170
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/synedit/synedittextbuffer.pp
View File

@ -1141,9 +1141,10 @@ end;
function TSynEditStringList.GetPChar(ALineIndex: Integer; out ALen: Integer): PChar; function TSynEditStringList.GetPChar(ALineIndex: Integer; out ALen: Integer): PChar;
begin begin
ALen := 0; if (ALineIndex = 0) and (Count = 0) then begin // simulate empty line
if (ALineIndex = 0) and (Count = 0) then // simulate empty line ALen := 0;
Result := nil Result := nil;
end
else else
Result := FList.GetPChar(ALineIndex, ALen); Result := FList.GetPChar(ALineIndex, ALen);
end; end;