13,825
社区成员
发帖
与我相关
我的任务
分享
TIdIndexItem = class(TIdSortItem) // TIdSortItem = class(TCollectionItem)
private
FIsDirty: Boolean;
FValueList: TList<TRecBuf>;
FIndexList: TList<Integer>; // 关键看这里,这个已经没用的了
procedure SetIsDirty(Value: Boolean);
procedure DeleteRecord(Buffer: TRecBuf);
procedure UpdateRecord(Buffer: TRecBuf);
protected
procedure SetSortOptions(Value: TIdSortOptions); override;
procedure Prepare;
function GotoNearest(const Buffer: TRecBuf; out Index: Integer): Boolean;
property IsDirty: Boolean read FIsDirty write SetIsDirty;
public
constructor Create(Collection: TCollection); override;
destructor Destroy; override;
end;