type TLinkContainer = class(
TActiveList
)
TActiveList
function ActiveLink: TLinkObject; |
|
function AddLadLadLink(aLeftLadObject: pointer; aRightLadObject: pointer): boolean; |
|
function FindLadLadLink(aLeftLadObject: pointer; aRightLadObject: pointer): boolean; |
|
function FindWithHandle(aHandle: int64): boolean; |
|
function FindWithLeftRightHandle(aLeftHandle: int64; aRightHandle: int64): boolean; |
|
function FirstWithLeftHandle(aHandle: int64): boolean; |
|
function FirstWithRightHandle(aHandle: int64): boolean; |
|
function IsDuplicateObject(aLinkObject: TLinkObject): boolean; |
|
procedure LoadFromFile(var aFile: TextFile); |
|
function NextOrCurrentWithLeftHandle(aHandle: int64): boolean; |
|
function NextOrCurrentWithRightHandle(aHandle: int64): boolean; |
|
function NextWithLeftHandle(aHandle: int64): boolean; |
|
function NextWithRightHandle(aHandle: int64): boolean; |
|
procedure RemoveAllLinksWithLeftHandle(aHandle: int64); |
|
procedure RemoveAllLinksWithRightHandle(aHandle: int64); |
|
function RemoveLadLadLink(aLeftLadObject: pointer; aRightLadObject: pointer): boolean; |
|
procedure SaveToFile(var aFile: TextFile); |
|
procedure SetLeftObjectPointers(aContainerList: TActiveList); |
|
procedure SetRightObjectPointers(aContainerList: TActiveList); |
|
procedure SortOnLeftHandle; |
|
procedure SortOnRightHandle; |
|
procedure SystemDisplayList(myList: TStrings; myObjects: TStrings); |
function ActiveLink: TLinkObject; |
function AddLadLadLink(aLeftLadObject: pointer; aRightLadObject: pointer): boolean; |
function FindLadLadLink(aLeftLadObject: pointer; aRightLadObject: pointer): boolean; |
function FindWithHandle(aHandle: int64): boolean; |
function FindWithLeftRightHandle(aLeftHandle: int64; aRightHandle: int64): boolean; |
function FirstWithLeftHandle(aHandle: int64): boolean; |
function FirstWithRightHandle(aHandle: int64): boolean; |
function IsDuplicateObject(aLinkObject: TLinkObject): boolean; |
procedure LoadFromFile(var aFile: TextFile); |
function NextOrCurrentWithLeftHandle(aHandle: int64): boolean; |
function NextOrCurrentWithRightHandle(aHandle: int64): boolean; |
function NextWithLeftHandle(aHandle: int64): boolean; |
function NextWithRightHandle(aHandle: int64): boolean; |
procedure RemoveAllLinksWithLeftHandle(aHandle: int64); |
procedure RemoveAllLinksWithRightHandle(aHandle: int64); |
function RemoveLadLadLink(aLeftLadObject: pointer; aRightLadObject: pointer): boolean; |
procedure SaveToFile(var aFile: TextFile); |
procedure SetLeftObjectPointers(aContainerList: TActiveList); |
procedure SetRightObjectPointers(aContainerList: TActiveList); |
procedure SortOnLeftHandle; |
procedure SortOnRightHandle; |
procedure SystemDisplayList(myList: TStrings; myObjects: TStrings); |