|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
09.07.2018, 15:22 | #11 | |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Цитата:
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
|
09.07.2018, 15:32 | #12 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
главную ошибку (про потерянные операторные скобки BEGIN ... END) уже указал Аватар.
про if then ELSE тоже сказали. добавлю. процедуру иницилизации ГПСЧ нужно вызывать ОДИН раз. например, это удобно делать на событии onCreate формы ( процедура FormCreate() ) |
09.07.2018, 16:34 | #13 |
Пользователь
Регистрация: 19.05.2018
Сообщений: 27
|
Не помогло. Все также правильные ответы в неправильные кидает.
|
09.07.2018, 16:36 | #14 |
Пользователь
Регистрация: 19.05.2018
Сообщений: 27
|
И про else я не забывал, просто сидя часа два за поисками ошибки как только код не переписывал...И else и по другому писал, все никак.
|
09.07.2018, 16:40 | #15 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
09.07.2018, 17:48 | #16 |
Пользователь
Регистрация: 19.05.2018
Сообщений: 27
|
//if(m=v) then begin p:=p+1; statusbar1.Panels.Items[1].Text:=inttostr(p); end;
//if(m<>v) then begin t:=t+1; statusbar1.Panels.Items[2].Text:=inttostr(t); end; |
09.07.2018, 17:48 | #17 |
Пользователь
Регистрация: 19.05.2018
Сообщений: 27
|
Без кавычек, забыл убрать.
|
09.07.2018, 18:00 | #18 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
что забыли убрать? где забыли убрать? где ваш исправленный код?
а ещё лучше, запакуйте файлы *.pas, *.lfm в архив, архив приложите к своему сообщению на форуме (см. кнопку "Загрузить файлы" - "Управление вложениями") и потом. я, может быть, чего-то не вижу, но почему у Вас Items нумеруются от 1 ? бросьте на форму кнопку, поместите на клик этой кнопки такой код: Код:
|
09.07.2018, 18:55 | #19 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
На скриншоте там в нулевом поле надпись "Результат"
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
09.07.2018, 20:03 | #20 |
Пользователь
Регистрация: 19.05.2018
Сообщений: 27
|
Вот весь проект, там 3 модуль я не подключал(в коментариях).Форменный генератор примеров.rar
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Странная ошибка | pufystyj | Общие вопросы C/C++ | 16 | 08.07.2012 15:15 |
Странная ошибка. | WTI | Общие вопросы Delphi | 3 | 10.04.2012 18:39 |
странная ошибка | Психвоплоти | Помощь студентам | 0 | 23.02.2011 15:01 |
Странная ошибка | Dux | SQL, базы данных | 5 | 23.03.2010 12:16 |
Странная ошибка | Washington | БД в Delphi | 2 | 16.03.2007 18:13 |