[SOLVED] wildcard utilities list

[mas steindorff]

new straight code:  (where is the "that was easy" button in the IDE )
just incase someone is about to respond to my post above...
Both the "remove duplicates" and .AddAce_as_one() where easy once I made TcardList a class (below) and then just added the code to that class.

Code: Pascal  [Select][+][-]

1.  
2. TCardListBase = specialize TFPGList<TCard>; // list of cards
3.  
4.   TCardList = class(TCardListBase)
5.      procedure Sort_KillRankDups;  // remove rank duplicates for straight testing
6.      procedure AddAce_as_one();
7.   private
8.    end;
9.  

for every Ace (rank 14) i find in the hand, I add a ace (rank 1) and the same code I posted above works. the extra cards are tossed since I work with a copy of the hand.
At this point I have everything. (until I address odds)
thankyou all
MAS