|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.08.2008, 18:47 | #1 |
Регистрация: 23.02.2007
Сообщений: 4
|
Помогите найти ошибку
Помогите найти ошибку
procedure TForm1.Button1Click(Sender: TObject); var bal:integer; begin bal:=0; label3.Caption:=IntToStr(RadioGroup 1.ItemIndex); if RadioGroup1.ItemIndex=0 then bal:=bal+1 else bal:=bal ; if bal=1 then form2.ShowHint end; end; end. Заранее спасибо. |
01.08.2008, 19:01 | #2 | |
Форумчанин
Регистрация: 24.06.2007
Сообщений: 351
|
Цитата:
Код:
Код:
Я не маюсь бездельем, я от него тащусь!
|
|
01.08.2008, 19:05 | #3 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Вам нужно вместо
Код:
Код:
Всегда рад помочь!
|
01.08.2008, 20:07 | #4 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,551
|
Dmitriy
Используйте отступы, что бы видеть структуру кода. У Вам появился лишний end. Кроме того (не ошибка, конечно, но все же), эта конструкция совершенно не нужна: Код:
Код:
E-Mail: arigato.freelance@gmail.com
|
01.08.2008, 23:32 | #5 |
Регистрация: 23.02.2007
Сообщений: 4
|
Спасибо всем, что помогли разобраться.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите найти ошибку | Максим_Леонидович | БД в Delphi | 4 | 20.08.2008 23:23 |
Помогите найти ошибку ( с++ ) | JOFRIF | Помощь студентам | 10 | 23.05.2008 14:34 |
Помогите найти ошибку | KnDmPetr | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 11.04.2008 15:48 |
Помогите найти ошибку | Рената | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 05.01.2008 04:29 |
help!!! Помогите найти ошибку!!! | linker13 | Общие вопросы Delphi | 2 | 07.07.2007 23:15 |