Текущий архив: 2004.11.07;
Скачать: 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 вся ветка
Текущий архив: 2004.11.07;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.024 c
