paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 14:21:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* integer -> sw_integer for FPC needed

Browse Source
This commit is contained in:
pierre 1999-02-08 14:02:06 +00:00
parent 5ea23d5c96
commit 367c384eec
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/text/whtmlhlp.pas
View File

@ -154,13 +154,13 @@ begin
AtInsert(Count,Item);
end;
function TTopicLinkCollection.At(Index: Integer): PString;
function TTopicLinkCollection.At(Index: sw_Integer): PString;
begin
At:=inherited At(Index);
end;
function TTopicLinkCollection.AddItem(Item: string): integer;
var Idx: integer;
var Idx: sw_integer;
begin
if Item='' then Idx:=-1 else
if Search(@Item,Idx)=false then