Так, мои структуры:
Код:
type
PHand = ^THand;
THand = packed record
Cards: array [0..6] of PCard;
Count: Word;
Combination: Byte;
Bonus: Byte;
Detail: Longword;
Evaluate: Longword;
end;
Cards — массив поинтеров на карты (до 7)
Count — бесполезно для этой процедуры
Combination — собственно комбинация
Bonus — бонус комбинация (не учитывается здесь)
Detail — одно из главных полей (кикеры)
Evaluate — флаги для определения комбинаций
В общем, вся структура тянется почти с самого первого моего анализатора, может и зря, но уж как есть...