paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 10:47:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 63738 #084616c388 from trunk:

Browse Source 
CodeTools: Speed up TextToHTML for large text. Issue #037561
........

git-svn-id: branches/fixes_2_0@63741 -
This commit is contained in:
martin 2020-08-15 02:32:44 +00:00
parent 5a9fdda475
commit 036336f93d
1 changed files with 78 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

95
ide/codehelp.pas
View File

@ -2985,25 +2985,86 @@ end;
function TCodeHelpManager.TextToHTML(Txt: string): string;
var
p: Integer;
l: Integer;
c, d: PChar;
begin
Result:=Txt;
p:=length(Result);
while p>0 do
begin
case Result[p] of
' ': Result:=copy(Result,1,p-1)+' '+copy(Result,p+1,length(Result));
'<': Result:=copy(Result,1,p-1)+'&lt;'+copy(Result,p+1,length(Result));
'>': Result:=copy(Result,1,p-1)+'&gt;'+copy(Result,p+1,length(Result));
'&': Result:=copy(Result,1,p-1)+'&amp;'+copy(Result,p+1,length(Result));
#10,#13:
begin
if (p>1) and (Result[p-1] in [#10,#13]) and (Result[p-1]<>Result[p]) then
dec(p);
Result:=copy(Result,1,p-1)+'<br>'+copy(Result,p,length(Result));
end;
Result := '';
if Txt = '' then
exit;
c := @Txt[1];
l := 0;
while c^ <> #0 do begin
inc(l);
case c^ of
' ' : inc(l, 5);
'<' : inc(l, 3);
'>' : inc(l, 3);
'&' : inc(l, 4);
#10,#13 :
begin
inc(l, 3);
if c[1] in [#10,#13] then
inc(c);
end;
end;
dec(p);
inc(c);
end;
SetLength(Result, l);
c := @Txt[1];
d := @Result[1];
while c^ <> #0 do begin
case c^ of
' ' :
begin
d[0] := '&';
d[1] := 'n';
d[2] := 'b';
d[3] := 's';
d[4] := 'p';
d[5] := ';';
inc(d, 5);
end;
'<' :
begin
d[0] := '&';
d[1] := 'l';
d[2] := 't';
d[3] := ';';
inc(d, 3);
end;
'>' :
begin
d[0] := '&';
d[1] := 'g';
d[2] := 't';
d[3] := ';';
inc(d, 3);
end;
'&' :
begin
d[0] := '&';
d[1] := 'a';
d[2] := 'm';
d[3] := 'p';
d[4] := ';';
inc(d, 4);
end;
#10,#13 :
begin
d[0] := '<';
d[1] := 'b';
d[2] := 'r';
d[3] := '>';
inc(d, 3);
if c[1] in [#10,#13] then
inc(c);
end;
else
d^ := c^;
end;
inc(c);
inc(d);
end;
end;