pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fix Integer/Cardinal instead of PtrInt/PtrUInt (Thanks Juha)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3859 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2015-01-02 17:48:42 +00:00
parent adcc3c6129
commit 0a71476b03
15 changed files with 82 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
wst/trunk/ide/lazarus/wstmodule/demo/std_cursors.pas
View File

@ -33,8 +33,8 @@ type
protected
procedure Reset();
function MoveNext() : Boolean;virtual;
function Clone():ICursor;
function GetCount() : PtrInt;
function Clone(): ICursor;
function GetCount() : Integer;
function GetCurrent() : TObject;
public
constructor Create(ADataList : TObjectList);
@ -73,7 +73,7 @@ begin
Result := TObjectListCursor.Create(FList) as ICursor;
end;
function TObjectListCursor.GetCount() : PtrInt;
function TObjectListCursor.GetCount() : Integer;
begin
Result := FList.Count;
end;

2
wst/trunk/ide/lazarus/wstmodule/demo/user_service_intf_imp.pas
View File

@ -157,7 +157,7 @@ end;
procedure FillDataFromFile(const AFileName : string);
var
objArray : TUserArray;
i : PtrInt;
i : Integer;
obj : TUser;
begin
objArray := TUserArray.Create();