Выбор процедуры

← →
Der Nechk@ssoff © (2006-03-07 12:13) [0]

Здраствуйте!У меня вот какая ситуация: мне надо сделать так что бы при нажатии на RadioButton компонент image1 перемещался влево(вправо,вверх и вниз-это несколько процедур) и чтобы прога каждый раз произвольно выбирала процедуру.Спасибо большое!

← →
tesseract © (2006-03-07 12:18) [1]

Меняй обработчик onClick после нажатия в чем сложность?

← →
Плохиш © (2006-03-07 12:22) [2]

> Der Nechk@ssoff © (07.03.06 12:13)
> Здраствуйте!У меня вот какая ситуация: мне надо сделать
> так что бы при нажатии на RadioButton компонент image1 перемещался
> влево(вправо,вверх и вниз-это несколько процедур) и чтобы
> прога каждый раз произвольно выбирала процедуру.

Randomize/Random/If/Case

← →
Der Nechk@ssoff © (2006-03-07 12:23) [3]

>Меняй обработчик onClick после нажатия в чем сложность?
На что поменять?

← →
tesseract © (2006-03-07 12:27) [4]

onclick:=RandomClick1;

где Randomclick1/2/3 процедура класса TNotifyEvent.

← →
Der Nechk@ssoff © (2006-03-07 13:28) [5]

Вот проблемный кусок текста:

procedure TForm1.Button1Click (sender:Tobject); begin Radiobutton4.Enabled:=true; Radiobutton3.Enabled:=true; image1.Visible:=false; image1.Left:=128;\ прога должна выбрать одну из этих процедур image1.Left:=248;/ end;

← →
Плохиш © (2006-03-07 13:45) [6]

> прога должна выбрать одну из этих процедур

Алгоритм выбора надо запрограммировать, а "прога" не может ничего выбрать.

← →
Der Nechk@ssoff © (2006-03-07 13:53) [7]

А как ЕЁ запрограмировать?Я над ней уже 2ой день сижу!

← →
Leonid Troyanovsky © (2006-03-07 13:59) [8]

> Der Nechk@ssoff © (07.03.06 13:53) [7]
> А как ЕЁ запрограмировать?Я над ней уже 2ой день сижу!

Кого "ее"? "Алгоритм", "выбор" - муж. рода.

> image1.Left:=128;\
> прога должна выбрать одну из этих процедур

Процедур? Хм. Здесь, при развитой фантазии, можно увидить
вызов метода (муж. рода).
Кстати, вызов-то один, только параметры различаются - 128, 248.

--
Regards, LVT.

← →
Der Nechk@ssoff © (2006-03-07 14:10) [9]

Хватит цеплятся за слова!Лучше помогите начинающему!

← →
Virgo_Style © (2006-03-07 14:32) [10]

Лучше бы за эти два дня почитал что-нибудь, тогда бы проблема решилась за две минуты, и жуткая туча будущих проблем тоже

← →
Leonid Troyanovsky © (2006-03-07 14:38) [11]

> Der Nechk@ssoff © (07.03.06 14:10) [9]
> Хватит цеплятся за слова!Лучше помогите начинающему!

Чем же помочь болезному, если он двух слов связать не может.

--
Regards, LVT.

← →
tesseract © (2006-03-07 14:53) [12]

var myRandom:integer; Randomize; myRandom:=Random(50); case myRandom of 1..10: image.left:=148; 11..20:image.left:=248; 21..30:image.left:=348; 31..40: image.left:=448; end;

← →
Плохиш © (2006-03-07 14:59) [13]

> tesseract © (07.03.06 14:53) [12]

А почему не Randow(5)? И что делать для myRandom in [0,41..49]?

← →
tesseract © (2006-03-07 15:00) [14]

> А почему не Randow(5)? И что делать для myRandom in [0,41.
> .49]?

Слушай вслепую набивал, по RandoW (infinite).

← →
Der Nechk@ssoff © (2006-03-07 15:00) [15]

Слава великому tesseract!Спасибо!

← →
Der Nechk@ssoff © (2006-03-07 16:00) [16]

Вот.Помогите исправить ошибки-сам никак!("?"-ошибки)
procedure TForm1.Button1Click (sender:Tobject); var Random:integer; Randomize: Random?:=Random (?30); case? button1click of; 1..10: image.left:=148; 11..20:image.left:=248; 21..30:image.left:=0; Radiobutton3.Enabled:=true; Radiobutton2.Enabled:=true; image1.Visible:=false; end;

← →
Virgo_Style © (2006-03-07 16:21) [17]

СРОЧНО [10]

← →
Der Nechk@ssoff © (2006-03-07 16:29) [18]

Значком -"?"- помечены места где Delphi выдает ошибки при компиляции.

← →
Плохиш © (2006-03-07 16:32) [19]

> Random?:=Random (?30);

Ни на какие мысли не наводит? Тогда бегом читать описание языка Pascal, в особенности структуру названия переменных/функций.

← →
Сергей М. © (2006-03-07 16:39) [20]

> Значком -"?"- помечены места где Delphi выдает ошибки при
> компиляции.

Вместо значка "?" в тексте твоей программы должен присутствовать идентификатор константы или переменной ординального типа, например

var ЧертТеЧтоИсбокуБантик: Integer;

case ЧертТеЧтоИсбокуБантик of

← →
Der Nechk@ssoff © (2006-03-07 17:46) [21]

В скобках указаны типы ошибок которые Delphi выдает при компиляции.(перечитал все что нашел дома-ничего не нашел!)

procedure TForm1.Button1Click (sender:Tobject); var random:integer; Randomize: button1click(Constant or type identifier expected)</B>:=(";" expected but ":=" found)Random (3); case(Declaration expected but "CASE" found) button1click of; 1: image.left:=148; 2:image.left:=248; 3:image.left:=0;

← →
Der Nechk@ssoff © (2006-03-07 17:47) [22]

В скобках указаны типы ошибок которые Delphi выдает при компиляции.(перечитал все что нашел дома-ничего полезного не нашел!)

procedure TForm1.Button1Click (sender:Tobject); var random:integer; Randomize: button1click(Constant or type identifier expected):=(";" expected but ":=" found)Random (3); case(Declaration expected but "CASE" found) button1click of; 1: image.left:=148; 2:image.left:=248; 3:image.left:=0;

← →
Плохиш © (2006-03-07 18:35) [23]

> Der Nechk@ssoff © (07.03.06 17:47) [22]

Как же тебе помочь, если ты даже не в состоянии работающий пример из [12] в свою програмулину скопировать?

← →
Der Nechk@ssoff © (2006-03-07 18:38) [24]

Это он есть[12] но ошибки лезут!

← →
Плохиш © (2006-03-07 18:40) [25]

> Der Nechk@ssoff © (07.03.06 18:38) [24]
> Это он есть[12] но ошибки лезут!

Врёшь, нагло врёшь, гражданин дворник.

Попробуй скомпилировать прогу с таким кодом:

random:integer; Randomize: button1click:=Random (3); case button1click of; 1: image.left:=148; 2:image.left:=248; 3:image.left:=0;

button1click:(тут ошибка)=(тут ошибка№2)Random (3);

case(тут ошибка№3) button1click of;

> Nsk3d © (07.03.06 19:11) [26]
> Попробуй скомпилировать прогу с таким кодом:

Зачем? Это дерьмо, которое ты сдесь напИсал никакого отношения к [12] не имеет.

ВОТ.Помогите исправить 2-е последние ошибки(Ошибки в скобках):

procedure TForm1.Button1Click (sender:Tobject); var random:double; Randomize: double:(";" expected but ":" found) random(3); case (Declaration expected but "CASE" found) double of 1: image.left:=148; 2:image.left:=248; 3:image.left:=0;

← →
EvS (2006-03-08 17:10) [29]

Для начала:
>random:double;
>double:random(3);
>case double of
что в вашем понимании означают эти строки в вашего кода?

Если честно то не знаю,но при этой комбинации ошибки не лезут.
Вы помогите исправить вышеописаные ошибки,а там я сам разберусь...

> double:(";" expected but ":" found) random(3);

написано - у тебя вместо точки с запятой стоит двоеточие.
переменная должна быть не random это же стандартная функция!!!!, а любой другой в примере myRandom стоит совершенно не напрасно.
double слово также зарезервированное. Почему тебя здесь не MyRandom ?

← →
EvS (2006-03-08 17:45) [32]

>[30] Der Nechk@ssoff © (08.03.06 17:20)
все понятно.
Держи:
procedure TForm1.Button1Click (sender:Tobject); var MyRandom:Integer; begin Randomize; MyRandom:=random(3); case MyRandom of 1: image.left:=148; 2:image.left:=248; 3:image.left:=0; end; End;

А можно по конкретнее что надо сделать?

Спасибоооооооооо!!!!!!!Работает!!!!!!!!!!!!!!!УРА!МАСТЕРАМ!!!

> Der Nechk@ssoff © (08.03.06 17:48) [33]

Где ???????? Evs тебе чз какой рабочий код показывает. Внимательней пользуйся.

Да когда он код вставлял я писал сообщение.
Спасибо Всем!!

Выбор процедуры Найти похожие ветки