VPF::Массив из кнопок. - Форум программистов

Nikolasha

Дата 14.12.2005, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 6.5.2005

Репутация: нет
Всего: нет

Цитата

А как насчет того что вокруг корабля на расстоянии одной клетки не может быть другого корабля? А твоя маска поля боя это не предусматривает

Если ты глянешь на массив, то увидишь, что все корабли стоят как надо. Никто ни с кем не соприкасается.

Цитата

Я бы рекомендовал использовать TImage - 100 штук. либо TImageList.

Это у меня был первый вариант, но слишком уж муторно работать с таким количеством рисунков.

Цитата

StringGrid.

Они выглядят не очень симпатично, к тому же хотелось бы ставить картинки...

Ну так что насчет ошибки? Чем она может быть вызвана?

THenry

Дата 14.12.2005, 22:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 13.9.2005

Репутация: нет
Всего: нет

Они то стоят как надо но динамичсеки тебе с 1 и 0 будет тяжело создавать маску smile

)

Nikolasha

Дата 14.12.2005, 23:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 6.5.2005

Репутация: нет
Всего: нет

Цитата

Они то стоят как надо но динамичсеки тебе с 1 и 0 будет тяжело создавать маску

Поживем увидим, мне главное с этим вопросом разобраться.

Akella

Дата 15.12.2005, 10:05 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(Nikolasha @ 14.12.2005, 19:55)

Не пашет, на стадии компиляции выдает ошибку следущего содержания:
Expected an identifier but invalid character character #160 found

так на какую строку ругается компилятор, а, надо же сразу "говорить"

Демо

Дата 15.12.2005, 14:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Цитата(Nikolasha @ 14.12.2005, 23:47)

Это у меня был первый вариант, но слишком уж муторно работать с таким количеством рисунков.

А принципы ООП для чего?-)

--------------------

FRAGNATIC

Дата 15.12.2005, 18:47 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

Nikolasha
посмотрел твой код)
[Error] Unit1.pas(126): Illegal character in input file: ' ' ($A0)
всё дело как я понял в том что когда ты копировал код с форума и вставлял в свой модуль скопировался левак вообщем просто поудаляй пробелы всякие которые у тя там были перед теми строками на которых ошибку выдаёт)

Staruha

Дата 15.12.2005, 21:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 1
Всего: 27

Создаю программно 10 переключателей и объединяю в группу .Нажимаю переключатель создается программно другой GroupButton и четыре переключателя. Нажимаю один из четырех и получается,что у меня не две группы ,а одна. Так же нажимаю следующую кнопку в первой группе- вылетает ошибка. Я так понимаю не хочет создавать повторно уже созданный GroupButton. Наверно его надо сначала удалить. Но как пробежаться по объектам не знаю. Делфи изучаю меньше месяца. smile

--------------------

Возмездие настигнет

FRAGNATIC

Дата 16.12.2005, 00:29 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

Цитата

Но как пробежаться по объектам не знаю.

пробежатся просто
for i:=0 to ControlCount-1 do
if Controls[i] is TSomeComponent (например TButton) then ....

а так я не совсем понял сути вопроса
и ещё не плохо былобы код выложить

Staruha

Дата 16.12.2005, 11:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 1
Всего: 27

Код


RGroup:=TRadioGroup.Create(Form1);
RGroup.Parent := Form1;
RGroup.Name:='RGR1';
RGroup.font.Size:=10;
RGroup.caption := 'Âîïðîñ';
RGroup.Height:=41*10+50;
RGroup.Width:=300;
RGroup.Left:=20;
RGroup.Top:=10;


  For i:=1 To 10 do
  Begin
RBut[i]:=TRadioButton.Create(Form1);
RBut[i].Parent := Form1;
RBut[i].Name:='Rbut1'+IntToStr(i);
RBut[i].font.Size:=10;
RBut[i].Width:=250;
RBut[i].caption := VoprOtv[i][1];
RBut[i].Left:=30;
RBut[i].Top:=10+i*41;

RBut[i].OnClick:=clik;
   End;

end;
  procedure TForm1.clik(Sender: TObject);
begin

RGroup2:=TRadioGroup.Create(Form1);
RGroup2.Parent := Form1;
RGroup2.Name:='RGR2';
RGroup2.font.Size:=10;
RGroup2.caption := 'Îòâåò';
RGroup2.Height:=41*4+50;
RGroup2.Width:=200;
RGroup2.Left:=350;
RGroup2.Top:=10;

      For i:=1 To 10 do
        Begin
           For rw:=2 To 5 do
        Begin
    If sender = RBut[i] Then
    Begin
RBut2[rw]:=TRadioButton.Create(Form1);
RBut2[rw].Parent := Form1;
RBut2[rw].Name:='RBut2'+IntToStr(rw);
RBut2[rw].caption := VoprOtv[i][rw];
RBut2[rw].Width:=100;
RBut2[rw].Left:=360;
RBut2[rw].Top:=10+(rw-1)*41;
RBut2[rw].OnClick:=clkk;
end;
   end;

     end;
     end;

Нажимаю RBut[i] загружаются 4 перекл Rbut[rw]
Нажимаю RBut2[rw] почему-то отключается RBut[i] и когда нажимаю следующий RBut[i] вылетает ошибка

--------------------

Возмездие настигнет

Romikgy

Дата 16.12.2005, 12:03 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

В этом примере при каждом нажатии на RBut[i] создаются объекты с одним и темже именем, что недопустимо,
ЗЫ также при нажатии другой RBut[i] память не освобождается
ИМХО мелгче накидать 4 TRadioButton и менять их в зависимости он необходимости чем создавать динамически

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »