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

Change TObjectCollectionRemotable.*Item 's index parameter to Integer instead of PtrInt; (Fix Delphi)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3718 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2014-11-11 12:24:54 +00:00
parent 428e582c01
commit 212d56a5ff
1 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
wst/trunk/base_service_intf.pas
View File

@ -1010,7 +1010,7 @@ type
private private
FList : TObjectList; FList : TObjectList;
protected protected
function GetItem(AIndex : PtrInt) : TBaseRemotable;{$IFDEF USE_INLINE}inline;{$ENDIF} function GetItem(AIndex : Integer) : TBaseRemotable;{$IFDEF USE_INLINE}inline;{$ENDIF}
function GetLength() : Integer; override; function GetLength() : Integer; override;
public public
class procedure Save( class procedure Save(
@ -1034,15 +1034,15 @@ type
function Equal(const ACompareTo : TBaseRemotable) : Boolean;override; function Equal(const ACompareTo : TBaseRemotable) : Boolean;override;
function Add(): TBaseRemotable;{$IFDEF USE_INLINE}inline;{$ENDIF} function Add(): TBaseRemotable;{$IFDEF USE_INLINE}inline;{$ENDIF}
function AddAt(const APosition : PtrInt): TBaseRemotable;{$IFDEF USE_INLINE}inline;{$ENDIF} function AddAt(const APosition : Integer): TBaseRemotable;{$IFDEF USE_INLINE}inline;{$ENDIF}
function Extract(const AIndex : PtrInt): TBaseRemotable;{$IFDEF USE_INLINE}inline;{$ENDIF} function Extract(const AIndex : Integer): TBaseRemotable;{$IFDEF USE_INLINE}inline;{$ENDIF}
procedure Delete(const AIndex : PtrInt);{$IFDEF USE_INLINE}inline;{$ENDIF} procedure Delete(const AIndex : Integer);{$IFDEF USE_INLINE}inline;{$ENDIF}
procedure Exchange(const Index1,Index2 : PtrInt);{$IFDEF USE_INLINE}inline;{$ENDIF} procedure Exchange(const Index1,Index2 : Integer);{$IFDEF USE_INLINE}inline;{$ENDIF}
procedure Clear();{$IFDEF USE_INLINE}inline;{$ENDIF} procedure Clear();{$IFDEF USE_INLINE}inline;{$ENDIF}
function IndexOf(AObject : TBaseRemotable) : PtrInt;{$IFDEF USE_INLINE}inline;{$ENDIF} function IndexOf(AObject : TBaseRemotable) : Integer;{$IFDEF USE_INLINE}inline;{$ENDIF}
procedure SetLength(Const ANewSize : Integer);override; procedure SetLength(Const ANewSize : Integer);override;
property Item[AIndex:PtrInt] : TBaseRemotable read GetItem;default; property Item[AIndex:Integer] : TBaseRemotable read GetItem;default;
end; end;
{ TBaseSimpleTypeArrayRemotable } { TBaseSimpleTypeArrayRemotable }
@ -3694,7 +3694,7 @@ end;
{ TObjectCollectionRemotable } { TObjectCollectionRemotable }
function TObjectCollectionRemotable.GetItem(AIndex : PtrInt) : TBaseRemotable; function TObjectCollectionRemotable.GetItem(AIndex : Integer) : TBaseRemotable;
begin begin
Result := TBaseRemotable(FList[AIndex]); Result := TBaseRemotable(FList[AIndex]);
end; end;
@ -3914,7 +3914,7 @@ begin
end; end;
end; end;
function TObjectCollectionRemotable.AddAt(const APosition : PtrInt) : TBaseRemotable; function TObjectCollectionRemotable.AddAt(const APosition : Integer) : TBaseRemotable;
begin begin
FList.Insert(APosition,nil); FList.Insert(APosition,nil);
try try
@ -3926,17 +3926,17 @@ begin
FList[APosition] := Result; FList[APosition] := Result;
end; end;
function TObjectCollectionRemotable.Extract(const AIndex : PtrInt) : TBaseRemotable; function TObjectCollectionRemotable.Extract(const AIndex : Integer) : TBaseRemotable;
begin begin
Result := TBaseRemotable(FList.Extract(FList[AIndex])); Result := TBaseRemotable(FList.Extract(FList[AIndex]));
end; end;
procedure TObjectCollectionRemotable.Delete(const AIndex : PtrInt); procedure TObjectCollectionRemotable.Delete(const AIndex : Integer);
begin begin
FList.Delete(AIndex); FList.Delete(AIndex);
end; end;
procedure TObjectCollectionRemotable.Exchange(const Index1, Index2 : PtrInt); procedure TObjectCollectionRemotable.Exchange(const Index1, Index2 : Integer);
begin begin
FList.Exchange(Index1,Index2); FList.Exchange(Index1,Index2);
end; end;
@ -3946,7 +3946,7 @@ begin
FList.Clear(); FList.Clear();
end; end;
function TObjectCollectionRemotable.IndexOf(AObject : TBaseRemotable) : PtrInt; function TObjectCollectionRemotable.IndexOf(AObject : TBaseRemotable) : Integer;
begin begin
Result := FList.IndexOf(AObject); Result := FList.IndexOf(AObject);
end; end;