mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-10 18:38:16 +02:00
lazreport: prevent potential crash by Luiz Americo (issue #0014324)
git-svn-id: trunk@23231 -
This commit is contained in:
parent
b09f9f224a
commit
45513985a2
@ -295,7 +295,7 @@ procedure DoFuncId; forward;
|
|||||||
if buf^[i] > ' ' then Inc(c);
|
if buf^[i] > ' ' then Inc(c);
|
||||||
i := 0;
|
i := 0;
|
||||||
j := 1;
|
j := 1;
|
||||||
while c > 0 do
|
while (c > 0) and (i < MemoFrom.Count) do
|
||||||
begin
|
begin
|
||||||
s1 := MemoFrom[i];
|
s1 := MemoFrom[i];
|
||||||
j := 1;
|
j := 1;
|
||||||
|
Loading…
Reference in New Issue
Block a user