paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 03:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid crashes in topic text compares

Browse Source
This commit is contained in:
pierre 2001-10-02 16:31:20 +00:00
parent af5cbc4ad5
commit ea691408dc
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/whelp.pas
View File

@ -556,7 +556,10 @@ begin
{ Try to read the title of the topic } { Try to read the title of the topic }
T1:=HelpFacility^.LoadTopic(K1^.FileID,K1^.HelpCtx); T1:=HelpFacility^.LoadTopic(K1^.FileID,K1^.HelpCtx);
T2:=HelpFacility^.LoadTopic(K2^.FileID,K2^.HelpCtx); T2:=HelpFacility^.LoadTopic(K2^.FileID,K2^.HelpCtx);
r:=strcomp(pchar(T1^.Text),pchar(T2^.Text)); if assigned(T1^.Text) and assigned(T2^.Text) then
r:=strcomp(pchar(T1^.Text),pchar(T2^.Text))
else
r:=0;
if r>0 then if r>0 then
begin begin
Compare:=1; Compare:=1;
@ -900,7 +903,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.3 2001-10-01 00:24:09 pierre Revision 1.4 2001-10-02 16:31:20 pierre
* avoid crashes in topic text compares
Revision 1.3 2001/10/01 00:24:09 pierre
* fix several help problems * fix several help problems
Revision 1.2 2001/09/18 11:33:53 pierre Revision 1.2 2001/09/18 11:33:53 pierre