| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Дурак [Delphi, Windows]

Sanek_metaller ©   (2004-07-02 15:12:00) 

Кто-нить писал?У меня вопрос:Игроки могут набрать карт очень мног...Так как это реализовать,или ограничить набор карт?

---

Sanek_metaller   (2004-07-04 03:58:00) [1]

Может еще кто знает,а то мне моя чё-то не очень нравится:(

---

Sanek_metaller   (2004-07-03 15:03:00) [2]

Ну а кудаже,с помощью VCL дурака легко написать,да и идейка уже появилась.

---

ПсихЪ_клон   (2004-07-03 10:11:00) [3]

Ну, блин. Ну что значит, "как это все на форму уместить?". Что ты собрался на форму размещать?

---

Sanek_metaller   (2004-07-03 09:37:00) [4]

Это почему?

---

Marser   (2004-07-03 02:50:00) [5]

Санёк, ИМХО, рановато ты за это дело взялся...

---

Sanek_metaller   (2004-07-03 02:02:00) [6]

Мне вот интересно,как это все на форму уместить?
Сделать то не проблема.

---

ПсихЪ_клон   (2004-07-02 15:25:00) [7]

Самый простой способ это использование динамических массивов.
Запись игрока:

type
 TCard = record
   // Реализовываешь так, как тебе привычнее
 end;

 CPlayer = class
   Name : string[25];
   Cards : array of TCards;
   CardCount : integer;

   function AddCard( Card : TCrad ) : integer;
   procedure DeleteCard( id : integer );
 end;

function CPlayer.AddCard( Card : TCrad ) : integer;
begin
 Result := CardCount;
 inc( CardCount );
 SetLength( Cards, CardCount );
 Cards[Result] := Crad;
end;

procedure CPlayer.DeleteCard( id : integer );
begin
 Cards[id] := Cards[CardCount-1];
 dec( CardCount );
 SetLength( Cards, CardCount );
end;

Ограничение на колличество карт думаю и сам сделаешь...

---

TButton   (2004-07-02 15:16:00) [8]

много. но не больше колоды.
как реализовывать это уж тебе решать.

---

Наверх