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

> ВНИМАНИЕ!

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

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


Бывалый
***

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

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


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

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


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

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


Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
cooler
сообщение 15.04.2008 20:11
Сообщение #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.2008 20:16


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

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


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

 



- Текстовая версия 4.07.2025 20:40
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"