BorlandTalk.com

Willy Hoel · Guest

Anyone who knows how I can sort a TCollection based on multiple values
in CollectionItems?

My Collection is declared like this:

public
Accounts: TAccounts ;
end;

TAccountType = (atSales,atCash,atOther,atDecimalRounding);

TAccountItem = class(TCollectionItem)
public
AccountType : TAccountType ;
fAmount :Double;
fExVatAmount : Double;
fAccount:String;
fAccountName: String ;
fVatCode:Char;
fDepartment: Integer ;
end;

TAccounts = class(TCollection)
public
procedure AddToAccount(Amount,EksVatAmount:Double;Account,AccountName:String;VatCode:Char;AccountType:TAccountType;
AccountDep: Integer);
end;

How can I sort the Collection based on the values in fAccount combined
with fDepartment?