Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.03.2009, 19:11   #11
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Или как Стилет сделать, уменьшая массив каждый раз. Или же цикл сделай типа такого
Код:
i:=Random(колода);
while (i уже был) do 
  Inc(i); //при этом сделать переход в начало если выйдет из диапазона
дальше делаешь что нужно, i будет содеражать следующий случайный элемент
//также нужно обработать момент когда колода закончится, а то будет вечный цикл
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 01.04.2009, 05:27   #12
Dirt
Пользователь
 
Регистрация: 28.03.2009
Сообщений: 60
По умолчанию

Тасовку сделал)))
Dirt вне форума Ответить с цитированием
Старый 01.04.2009, 06:10   #13
Dirt
Пользователь
 
Регистрация: 28.03.2009
Сообщений: 60
По умолчанию

Теперь другая проблемма(((.
Может кто знает, в покере питикарточном, замену карт можно делать?
Если кто знает напишите, да или нет, и сколько карт максимум и минимум можно менять???
Dirt вне форума Ответить с цитированием
Старый 01.04.2009, 18:25   #14
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Цитата:
Сообщение от Dirt Посмотреть сообщение
Теперь другая проблемма(((.
Может кто знает, в покере питикарточном, замену карт можно делать?
Если кто знает напишите, да или нет, и сколько карт максимум и минимум можно менять???
Ты форумом не ошибся?
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 24.02.2015, 18:25   #15
Sergo402
Новичок
Джуниор
 
Регистрация: 24.02.2015
Сообщений: 1
По умолчанию

Цитата:
Сообщение от EvKont Посмотреть сообщение
Код:
var CardsDll : THandle;
begin
    CardsDll := LoadLibraryEx('cards.dll',0, LOAD_LIBRARY_AS_DATAFILE) ;
    Image1.Picture.Bitmap.LoadFromResourceID(CardsDll, 12);
    FreeLibrary(CardsDll);
end;
где вместо 12 можно писать любую цифру - номер карты
Скажіть будь-ласка як створити свій покер рум клієнт?
Sergo402 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
управление в игре - Скачал GLScene для Делфи, создал актера, камеру. Delphimen Мультимедиа в Delphi 4 08.05.2012 16:13
Как в Делфи реализовать числовое поле с автоувеличением bbk_serg Общие вопросы Delphi 2 19.02.2009 08:12
как реализовать это на Делфи ??? akasex Общие вопросы Delphi 4 15.06.2008 01:10
2d эффекты в игре. Как реализовать на Delphi? t3ns0r Gamedev - cоздание игр: Unity, OpenGL, DirectX 2 06.08.2007 18:57