Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.15;
Скачать: CL | DM;

Вниз

Инвентарь   Найти похожие ветки 

 
TButton ©   (2002-12-02 23:52) [0]

Уважаемые мастаки, доброго вам времени суток!
Инвентарь для своей РПГхи я сделал ввиде объекта, содержащего динамический массив самих шмоток и методы для управления им. Процедура Put для добавления шмотки в массив затруднений не вызвала, а вот над Get пришлось призадуматься. Дело в том что когда берешь шмотку она должна удаляться из инвентаря. Может кто из вас знает оптимальный алгоритм удаления элемента из динамического массива?


 
Ketmar ©   (2002-12-03 10:22) [1]

использовать TList.

Satanas Nobiscum! 03-Dec-XXXVII A.S.


 
cyborg ©   (2002-12-03 11:10) [2]

Если интересно сделать при помощи работы с памятью, т.е. выделение и освобождение участков памяти обращайся.


 
TButton ©   (2002-12-04 19:52) [3]

>использовать TList.

Лист содержит укаzатели а мне нужны объекты. У меня предмет инвентаря определен как универсальный объект, который содержит информацию о том кто он такой и что он может, но сделал я его не как class или object, а как record.


 
cyborg ©   (2002-12-04 22:58) [4]

TButton ©
Лист содержит укаzатели а мне нужны объекты
...
но сделал я его не как class или object, а как record.


Нет тут никакой проблемы:

Type
PMyRecord = TMyRecord;
TMyRecord = record;
a,b,c : Integer;
End;
Var
MyRecord : TMyRecord;

...

Pointer:=@MeRecord;
PMyRecord(Pointer)^.a:=10;
PMyRecord(Pointer)^.b:=100;
PMyRecord(Pointer)^.c:=1000;


 
Ketmar ©   (2002-12-05 17:16) [5]

2TButton:
срочно бросать игродельство и начинать учить Object Pascal. когда выучим - возвращаться к игродельству.

Satanas Nobiscum! 05-Dec-XXXVII A.S.


 
TButton ©   (2002-12-09 07:33) [6]

> cyborg
спасибо
> Ketmar
харе наворачивать ты тоже когда-то не все zнал


 
Ketmar ©   (2002-12-09 10:55) [7]

>TButton© (09.12.02 07:33)
ага. не все. разница в том, что я сначала учил, а потом делал. но ни в коем случае не ноборот.

Satanas Nobiscum! 09-Dec-XXXVII A.S.



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

Текущий архив: 2003.05.15;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.021 c
14-46947
Knight
2003-04-09 23:34
2003.05.15
В чём смысл жизни....


14-46937
Valentino
2003-04-25 15:55
2003.05.15
Нужен пример создания файла-теста для тестирующей программы?


1-46733
vajo
2003-05-05 07:28
2003.05.15
Не работает перетаскивание формы мышью


14-46896
Юрий Федоров
2003-04-25 18:59
2003.05.15
Кто-нибудь хочет поработать?


7-47014
o_viz2000
2003-03-19 12:42
2003.05.15
Как открыть в Delphi compound файл?