Перетасовка колоды карт

[newd]

Всем здравствуйте! Я в программировании ещё новичок, поэтому извините за глупые вопросы.
Вопрос такой, как перетасовать колоду карт. Искал долго, но в среде Delphi ничего не нашел.
Моя среда Borland Delphi 7. Спасибо.

[SERG1980]

Попробуйте вот этот компонент. В данном наборе есть невизуальный компонент TColoda который отвечает за перетасовку карт. Есть пример использования

[Баламут]

Здесь глянь http://programmersforum.ru/showthread.php?t=38802

Этот алгоритм я использовал именно для этих целей

[SNUPY]

можно еще как в жизни делают ^_^ ...
пусть дан массив 0..n, тогда пусть i:=random(n-1), выделим 2-а подмножества 0..i и i+1..n, тогда получим новый массив (i+1..n, 0..i)
ну типо вот одно перемешивание происходящее в реальной жизни.

[newd]

Всем спасибо. Ваши ответы помогли. Буду дерзать, но думаю, что вопросов еще будет много, особенно по алгоритму. Вообще у меня задумка сделать карточную игру покер как описано на
http://www.durbetsel.ru/2_poker_bez_nazvaniya1.htm
Хотел скачать, но не нашел. По всей видимости, такого типа покера еще нет.

[santeysis]

На самом деле простейший механизм тасовки карт сделать очень просто.

Вот мой механизм тасования карт в одной из первых версий "Карточной игры в дурака".
Правда это на С++, но можно все перевести в дельфи.

void TPack::Shuffle()
{
TCard card;
for(int i=0,j=9;i<600;j=random(52),i++)
{
card=Cards[51];
Cards[51]=Cards[j];
Cards[j]=card;
}
}