|
@@ -241,12 +241,8 @@ type
|
|
|
procedure SetCount(NewCount: Integer);
|
|
|
Procedure RaiseIndexError(Index: Integer);
|
|
|
public
|
|
|
-{$IFNDEF VER2_4}
|
|
|
-{$ifndef fpdocsystem}
|
|
|
Type
|
|
|
TDirection = (FromBeginning, FromEnd);
|
|
|
-{$endif}
|
|
|
-{$ENDIF}
|
|
|
destructor Destroy; override;
|
|
|
Procedure AddList(AList : TFPList);
|
|
|
function Add(Item: Pointer): Integer; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}
|