paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-27 11:51:56 +01: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); AtInsert(Count,Item);
end; end;
function TTopicLinkCollection.At(Index: Integer): PString; function TTopicLinkCollection.At(Index: sw_Integer): PString;
begin begin
At:=inherited At(Index); At:=inherited At(Index);
end; end;
function TTopicLinkCollection.AddItem(Item: string): integer; function TTopicLinkCollection.AddItem(Item: string): integer;
var Idx: integer; var Idx: sw_integer;
begin begin
if Item='' then Idx:=-1 else if Item='' then Idx:=-1 else
if Search(@Item,Idx)=false then if Search(@Item,Idx)=false then