Дурак

← →
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]

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

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

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

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