| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Выбор процедуры [D7, XP]
Der Nechk@ssoff © (2006-03-07 12:13:00)Здраствуйте!У меня вот какая ситуация: мне надо сделать так что бы при нажатии на RadioButton компонент image1 перемещался влево(вправо,вверх и вниз-это несколько процедур) и чтобы прога каждый раз произвольно выбирала процедуру.Спасибо большое!
Der Nechk@ssoff (2006-03-08 18:01:00) [1]Да когда он код вставлял я писал сообщение.
Спасибо Всем!!
tesseract (2006-03-08 17:51:00) [2]
> Der Nechk@ssoff © (08.03.06 17:48) [33]
Где ???????? Evs тебе чз какой рабочий код показывает. Внимательней пользуйся.
Der Nechk@ssoff (2006-03-08 17:51:00) [3]Спасибоооооооооо!!!!!!!Работает!!!!!!!!!!!!!!!УРА!МАСТЕРАМ!!!
Der Nechk@ssoff (2006-03-08 17:48:00) [4]А можно по конкретнее что надо сделать?
EvS (2006-03-08 17:45:00) [5]>[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;
tesseract (2006-03-08 17:31:00) [6]
> double:(';' expected but ':' found) random(3);
написано - у тебя вместо точки с запятой стоит двоеточие.
переменная должна быть не randomэто же стандартная функция!!!!, а любой другой в примере myRandomстоит совершенно не напрасно.
doubleслово также зарезервированное. Почему тебя здесь не MyRandom?
Der Nechk@ssoff (2006-03-08 17:20:00) [7]Если честно то не знаю,но при этой комбинации ошибки не лезут.
Вы помогите исправить вышеописаные ошибки,а там я сам разберусь...
EvS (2006-03-08 17:10:00) [8]Для начала:
>random:double;
>double:random(3);
>case double of
что в вашем понимании означают эти строки в вашего кода?
Der Nechk@ssoff (2006-03-08 16:54:00) [9]ВОТ.Помогите исправить 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;
Плохиш (2006-03-07 19:16:00) [10]
> Nsk3d © (07.03.06 19:11) [26]
> Попробуй скомпилировать прогу с таким кодом:
Зачем? Это дерьмо, которое ты сдесь напИсал никакого отношения к [12] не имеет.
Nsk3d (2006-03-07 19:11:00) [11]Попробуй скомпилировать прогу с таким кодом:
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;
Плохиш (2006-03-07 18:40:00) [12]
> Der Nechk@ssoff © (07.03.06 18:38) [24]
> Это он есть[12]но ошибки лезут!
Врёшь, нагло врёшь, гражданин дворник.
Der Nechk@ssoff (2006-03-07 18:38:00) [13]Это он есть[12] но ошибки лезут!
Плохиш (2006-03-07 18:35:00) [14]
> Der Nechk@ssoff © (07.03.06 17:47) [22]
Как же тебе помочь, если ты даже не в состоянии работающий пример из [12] в свою програмулину скопировать?
Der Nechk@ssoff (2006-03-07 17:47:00) [15]В скобках указаны типы ошибок которые 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;
Der Nechk@ssoff (2006-03-07 17:46:00) [16]В скобках указаны типы ошибок которые 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;
Сергей М. (2006-03-07 16:39:00) [17]
> Значком -"?"- помечены места где Delphi выдает ошибки при
> компиляции.
Вместо значка "?" в тексте твоей программы должен присутствовать идентификатор константы или переменной ординального типа, например
var ЧертТеЧтоИсбокуБантик: Integer;
case ЧертТеЧтоИсбокуБантик of
Плохиш (2006-03-07 16:32:00) [18]
> Random?:= Random(?30);
Ни на какие мысли не наводит? Тогда бегом читать описание языка Pascal, в особенности структуру названия переменных/функций.
Der Nechk@ssoff (2006-03-07 16:29:00) [19]Значком -"?"- помечены места где Delphi выдает ошибки при компиляции.
Virgo_Style (2006-03-07 16:21:00) [20]СРОЧНО [10]
| |
Страницы: 