IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Футбольный менеджер comes back, Теперь на Delphi
сообщение
Сообщение #1


Бывалый
***

Группа: Пользователи
Сообщений: 178
Пол: Мужской

Репутация: -  0  +


Продолжаю написание игры футбольный менеджер.
Теперь на Delphi.
Т.к почти еще ничего не знаю надеюсь на вашу помощь.
Для начала: как сделать выбор 1 пункта из нескольких?
(при выборе в зависимости от пункта переменной присваивается значение)
Это могут быть "радио"- кнопки или выбор из списка.
Не могу разобраться как связать фому с unit'ом.

Набросайте пожалуйста как сделать так: см.рис


Вобщем пока проблемы интерфейса.
Ещё:
Как, например, задать background ?

Если есть можно дать ссылку на материал, где это описано.


Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Бывалый
***

Группа: Пользователи
Сообщений: 178
Пол: Мужской

Репутация: -  0  +


Всё, большое спасибо с тем что было по-тихоньку разобрался

massev: array[1..5] of string = ('забил гол',
'травма','желтая карточка','замена','красная карточка')


procedure TSimForm.Button2Click(Sender: TObject);
var i,r1,r11,r2,r22,usl,g1,g2:byte;
r:byte;
a:array[1..16] of integer;

begin
Listbox2.Items.Clear;
r:=whatteam;
Label1.Caption:=rus_team[1]+' - '+rus_team[2];
Label2.Caption:=Floattostr(0)+' : '+Floattostr(0);
for i:=1 to 10 do
begin
team.init2('spartak');
randomize;
r1:=random(11);
randomize;
r11:=random(11);
randomize;
r2:=random(5);
randomize;
r22:=random(5);
if (r1=0) or (r1=1) then r1:=7;
if r11=0 then exit;
if r2=0 then r2:=5;
if r22=0 then exit;
if r2=1 then
begin
g1:=g1+1;
Label2.Caption:=Floattostr(g1)+' : '+Floattostr(g2);
end;
Listbox2.Items.add('>>>'+squad[r1]^.name+' '+massev[r2]);
randomize;
usl:=random(2);
if usl=1 then
Listbox2.Items.add(' '+squad2[r11]^.name+' '+massev[r22]);
if r22=1 then
begin
g2:=g2+1;
Label2.Caption:=Floattostr(g1)+' : '+Floattostr(g2);
end;
end;

end;


В этой процедуре я конечно нагородил...
Идея такая: пока случайно выбираются события матча из массива massev и выводятся в Листбокс.
Нужно сделать чтобы события в него выводились с некоторой задержкой,
и чтобы матч можно было остановить, что-то сделать с составом и возобновить, не теряя
предыдущих событий. Если пользователь сделал замену игрока, соответственно выводим
сообщение об этом в Листбокс.


P.S Как лучше выводить таблицу?

Да, обновленная версия, если нужно:

Сообщение отредактировано: cooler -


Прикрепленные файлы
Прикрепленный файл  15.04.rar ( 18.23 килобайт ) Кол-во скачиваний: 342
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
cooler   Футбольный менеджер comes back   19.03.2008 0:11
cooler   Поразбирался. Понял ,что задал глупые вопросы... У…   20.03.2008 1:49
cooler   А как выводить значения переменных или текст что-т…   20.03.2008 18:12
мисс_граффити   Не трудно :)) По порядку... С первой порцией, нас…   21.03.2008 1:08
cooler   Насчет ComboBox: Понимаешь в чем дело, У меня (на …   21.03.2008 1:39
мисс_граффити   теперь стало понятнее ))) можно сделать так: неско…   22.03.2008 0:39
cooler   Проект выложил, если это уже можно называть проект…   26.03.2008 0:45
мисс_граффити   привесить на открытие формы )) сам на свой вопрос…   7.04.2008 1:37
striker   Я такую же прогу делал года 2 назад, но все было п…   16.04.2008 0:06
cooler   Всё, большое спасибо с тем что было по-тихоньку ра…   16.04.2008 0:11
cooler   Сорри за такой код в процедуре. Сейчас сам сел спу…   16.04.2008 15:10
Better Kind   Гораздо проще реализовать записями.   16.04.2008 18:50
cooler   А подробнее? :) Приведи примерчик   16.04.2008 20:07
cooler   Помогите пожалуйста реализовать след. вещь. У меня…   4.05.2008 23:16
cooler   Пожалуйста, помогите. Как это сделать?   5.05.2008 19:06
cooler   Почему?...Почему никто ничего не пишет. Напишите х…   6.05.2008 23:14
мисс_граффити   ты хочешь передавать управление? то есть идет матч…   7.05.2008 1:29
cooler   Идет матч, пользователь нажимает на кнопку "п…   7.05.2008 1:45
мисс_граффити   я бы тогда сделала так примерно: var massev: array…   7.05.2008 4:22
cooler   Спасибо. Я почти также уже сделал:( Сам догадался.…   8.05.2008 20:14
cooler   Вот пока маленький вопросик: Можно ли вставлять в …   9.05.2008 14:43
volvo   Почему ж нельзя? Uses Jpeg и работай...   9.05.2008 14:52
cooler   volvo, спасибо. мисс граффити, вот ещё что: Собы…   13.05.2008 17:14
andriano   Нужно распределить все забитые голы между началом …   13.05.2008 22:09
cooler   А как создать файл справки и привязать его к кнопк…   14.05.2008 14:20
andriano   А как создать файл справки и привязать его к кноп…   14.05.2008 15:44
cooler   Нет, а как windows справку там по-моему .chm файл …   14.05.2008 23:02
andriano   Нет, а как windows справку там по-моему .chm файл…   15.05.2008 0:06
cooler   Да, ещё не подскажете как привязать процедуру запи…   14.05.2008 23:30
cooler   Вопрос о сохранении в файл в силе. Он сейчас важне…   15.05.2008 0:36
мисс_граффити   if SaveDialog1.Execute then сделать какую-нибуд…   15.05.2008 2:30
cooler   Спасибо   15.05.2008 20:10
cooler   Ещё 1 глупый мини-вопрос Как записать в текстовый …   28.05.2008 17:18
мисс_граффити   точно так же ))) только вместо assign - assignfile…   29.05.2008 1:06
cooler   Спасибо! А можешь быстренько накинуть пару стр…   29.05.2008 1:08
мисс_граффити   type ar1=array[1..10] of string; ar2=array[1..10] …   29.05.2008 4:48
cooler   Спасибо, только вот у меня одна неувязочка. Может …   3.06.2008 2:06
cooler   Здесь: st_name[a]:=squad[a]^.…   3.06.2008 15:43
cooler   Ещё: как дописывать в созданный файл? Т.е я один р…   3.06.2008 19:48
cooler   Скорее всего финальный вопрос в этой теме Столкнул…   4.06.2008 2:56
pefeUnsaste   посоветуйте пожалуйста хорошую зоо клинику в москв…   29.06.2012 6:11


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 20:08
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name