Скачать: CL | DM;

Дурак   Найти похожие ветки 

← →
Sanek_metaller ©   (2004-07-02 15:12) [0]

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

---

← →
TButton   (2004-07-02 15:16) [1]

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

---

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

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

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;

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

---

← →
Sanek_metaller ©   (2004-07-03 02:02) [3]

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

---

← →
Marser ©   (2004-07-03 02:50) [4]

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

---

← →
Sanek_metaller ©   (2004-07-03 09:37) [5]

Это почему?

---

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

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

---

← →
Sanek_metaller ©   (2004-07-03 15:03) [7]

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

---

← →
Sanek_metaller ©   (2004-07-04 03:58) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.052 c