source: trunk/Packages/TemplateGenerics/Generic/GenericListAbstract.inc

Last change on this file was 28, checked in by chronos, 8 years ago
  • Added: Remember forms dimensions.
  • Added: Remember recent opened files.
File size: 1.3 KB
Line 
1{$IFDEF INTERFACE}
2
3 { TGAbstractList }
4
5 TGAbstractList = class
6 private
7 FOnUpdate: TNotifyEvent;
8 function Get(const Index: Integer): Integer; virtual; abstract;
9 function GetCapacity: Integer; virtual; abstract;
10 function GetCount: Integer; virtual; abstract;
11 function GetFirst: Integer; virtual; abstract;
12 function GetLast: Integer; virtual; abstract;
13 procedure Put(const Index: Integer; const AValue: Integer); virtual; abstract;
14 procedure SetCapacity(const AValue: Integer); virtual; abstract;
15 procedure SetCount(const AValue: Integer); virtual; abstract;
16 procedure SetFirst(const AValue: Integer); virtual; abstract;
17 procedure SetLast(const AValue: Integer); virtual; abstract;
18 public
19 type
20 PItem = ^TGListItem;
21 property Count: TGListIndex read GetCount write SetCount;
22 property Capacity: TGListIndex read GetCapacity write SetCapacity;
23 property Items[Index: TGListIndex]: TGListItem read Get write Put; default;
24 property First: TGListItem read GetFirst write SetFirst;
25 property Last: TGListItem read GetLast write SetLast;
26 property OnUpdate: TNotifyEvent read FOnUpdate write FOnUpdate;
27 end;
28
29
30{$UNDEF INTERFACE}
31{$ENDIF}
32
33{$IFDEF IMPLEMENTATION}
34{$UNDEF IMPLEMENTATION}
35{$ENDIF}
36
Note: See TracBrowser for help on using the repository browser.