Реализовать отображения карт в игре покер на делфи

[Dirt]

Здраствуйте.
Задали залание в институте написать игру покер. Вопрос:
Как сделать отображения карт?
Взоранее спосибо!

[EvKont]

var CardsDll : THandle;
begin
    CardsDll := LoadLibraryEx('cards.dll',0, LOAD_LIBRARY_AS_DATAFILE) ;
    Image1.Picture.Bitmap.LoadFromResourceID(CardsDll, 12);
    FreeLibrary(CardsDll);
end;

где вместо 12 можно писать любую цифру - номер карты

[Dirt]

А где можно взять файл с картами?

[EducatedFool]

А здесь смотрели?
C:\WINDOWS\system32\cards.dll (для WinXP)

[Serge_Bliznykov]

и ещё, тут на форуме было интересное (и очень продуктивное) обсуждение реализации пасьянса.
выкладывались компоненты и самостоятельные разработки. Рекомендую ознакомится - может быть очень полезным:
Курсовая - пасьянс

[Dirt]

Всем большое спасибо!

[Dirt]

Нужно сделать тасовку калоды. Random если делаю, там есть павторения. Как быть? Или каждый раз проверять, есть такое число или нет. Подскажите.

[Stilet]

Или каждый раз проверять, есть такое число или нет.

А почему нет? Карт то немного.
Впрочем можно даже так: Оформи Список скажем TList, элементы которого будут связаны с картами. Получай Рандомно номер, выбирай карту и удаляй ее из списка. Тогда повторений не будет.
ТОлько наверное при каждом выборе следует понижать на единицу диапазон рандома.

[Dirt]

Не совсем понял(.
Можете начало написать, что бы понятней было.

[Stilet]

Ну незнаю насколько получится обьяснить...:

var l:TStringList;i:integer;
begin
l:=TStringList.Create;
l.CommaText:='a,b,c,d,e,g,r,t,u';
while l.Count>2 do begin
 randomize;
 i:=random(l.Count-1); // Выбираем случайно из диапазона списка
 ListBox1.Items.Add(l[i]);
 l.Delete(i); // Выбраный удаляем
end;
end;