VPF::if then - Форум программистов

ivan219

Дата 17.1.2006, 22:42 (ссылка)

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

Загрузка ...

Эксперт

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

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

Вобщем вот код в котором будет 60 штук IF .... then .... може както это уменьшить они все проктически одно ипные меняются толко значения переменных Col, Nam и SenseNumber1.

Код


procedure TForm1.ShapeMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
Col: TColor;
Nam: String;
begin
 Col:=TShape(Sender).Brush.Color;
 Nam:=TShape(Sender).Name;

 if (Col=clBlack) and (Nam='S10') then
   begin
    SenseNumber1:=0;
    .......
   end;
 if (Col=$00173968) and (Nam='S11') then
   begin
    SenseNumber1:=1;
    .....
   end;
end;

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

Мой первый сайт и моя первая программа!!!!!

z-END

Дата 17.1.2006, 22:51 (ссылка)

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

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

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

ivan219 поподробней что тебе требуется сделать=)

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

Каждый чилавек пасвоему праф...а памоему НЕТ!

MIX55

Дата 17.1.2006, 23:12 (ссылка)

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

Загрузка ...

много работы

Профиль
Группа: Awaiting Authorisation
Сообщений: 208
Регистрация: 23.10.2005
Где: Здесь

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

case SenseNumber1 of
0: (Col=clBlack) and (Nam='S10')
1:(Col=$00173968) and (Nam='S11')
и т.д.

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

Hарод, а как в дельфи писать паскалевские проги....?*********************************************Жизнь слишком коротка, чтобы писать на Assembler'e

Albinos_x

Дата 17.1.2006, 23:18 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

набор цветов объявить в массиве , с 'S11' можно набодобии поступить или
например:

Код


for i:=1 to 60 do
   begin
   Nam:='S'+inttostr(10+i);
...

Добавлено @ 23:20
если у набора цветов есть закономерность, то тоже можно через цикл делать без объявления массива...

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

ivan219

Дата 18.1.2006, 00:01 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(MIX55 @ 17.1.2006, 23:12)

case SenseNumber1 of
0: (Col=clBlack) and (Nam='S10')
1:(Col=$00173968) and (Nam='S11')
и т.д.

Нет ту получается если SenseNumber1=0 то (Col=clBlack) and (Nam='S10') а мне надо наоборот или я ошибаюсь smile

Вобщем что мне нужно имеется 59 контрлов типа TShape у каждого есть имя Nam (S11-первый столбец и первая строка S12-первый столб вторая строка) и его цвет Col (имеется всего 12 цветов) мне надо чтоб при обращении к определённому контролу переменная SenseNumber1 преобретала определённое значение.

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

Код


if (Col=clBlack) and (Nam='S10') then    
   begin    
    SenseNumber1:=0;    
    .......    
   end;    
 if (Col=$00173968) and (Nam='S11') then    
   begin    
    SenseNumber1:=1;    
    .....    
   end;

Вобщем вот как это будет выгдедеть.

Это сообщение отредактировал(а) ivan219 - 18.1.2006, 00:07

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

Мой первый сайт и моя первая программа!!!!!

Snowy

Дата 18.1.2006, 00:04 (ссылка)

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

Загрузка ...

Эксперт

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

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

Проще всего присвоить каждому шейпу номер - прописать его в св-во Tag.
Для этого оно и существует.

darkart

Дата 18.1.2006, 00:34 (ссылка)

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

Загрузка ...

Опытный

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

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

С Tag - лучший вариант, записывай в Tag а далее что-нибудь типа:

Код


{этот обработчик у всех Shapов}
procedure TForm1.ShapeMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  SenseNumber1:=(Sender as TShape).Tag;
  //...
end;

ivan219

Дата 18.1.2006, 00:56 (ссылка)

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

Загрузка ...

Эксперт

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

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

Да я это уже зделал спасибо как я сам до этого только недодумался ведь знал smile

про Tag

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

Мой первый сайт и моя первая программа!!!!!

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