Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> не могу найти ошибку в тесте, тест 
:(
    Опции темы
miksa30
  Дата 16.10.2014, 12:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Button1: TButton;
    RadioGroup1: TRadioGroup;
    Listbox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  variantkol,nomervernogo,kolvoverno,nomervoprosa,nomerstroki,kolvovoprosov,i: integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin
ListBox1.Items.LoadFromFile('Test.txt');
label1.Caption:=listbox1.Items[1];
variantkol:=StrToInt(Listbox1.Items[2]);
radiogroup1.items.clear;
for i:=1 to variantkol do begin
radiogroup1.Items.Add(listbox1.Items [3+i]) ;
end;
kolvovoprosov:=strtoint (listbox1.Items[0]);
nomervernogo:=strtoint (listbox1.Items [3]);
kolvoverno:=0;
nomervoprosa:=1;
nomerstroki:=variantkol+4;
end;



procedure TForm1.Button1Click(Sender: TObject);
var variantkol,nomervernogo,kolvoverno,nomervoprosa,nomerstroki,kolvovoprosov: integer;
Ocenka: real;
begin

if (RadioGroup1.ItemIndex+1)=nomervernogo then begin
kolvoverno:=kolvoverno+1;
end;
if nomervoprosa=kolvovoprosov then begin
Ocenka:=kolvoverno*(5-1)/kolvovoprosov+1;
messagedlg('Âàøà îöåíêà='+floattostr (Ocenka),
mtinformation, [mbOK], 0);
Form1.Close;
end;
if nomervoprosa<kolvovoprosov then begin
end;
nomervoprosa:=nomervoprosa+1;

label1.caption:=listbox1.items[1+nomerstroki-1];
variantkol:=strtoint(listbox1.items[2+nomerstroki-1]);
nomervernogo:=strtoint(listbox1.items[3+nomerstroki-1]);
radiogroup1.items.clear;
for i:=1 to variantkol do begin
radiogroup1.items.add(listbox1.items[3+i+nomerstroki-1]);
end;
nomerstroki:=nomerstroki+variantkol+3;


end;

end.


















пишет нераспознанный индекс, сижу целый день не могу понять где косяк
PM MAIL   Вверх
Poseidon
Дата 16.10.2014, 13:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


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

Репутация: 9
Всего: 133
Говорят, отладчик может помочь. Банально даже из-за того, что не знаем что там в Test.txt.


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
miksa30
Дата 16.10.2014, 14:39 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(Poseidon @ 16.10.2014,  13:59)
Говорят, отладчик может помочь. Банально даже из-за того, что не знаем что там в Test.txt.

в Test.txt вопросы и ответы
PM MAIL   Вверх
Poseidon
Дата 16.10.2014, 15:28 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


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

Репутация: 9
Всего: 133
Отлично! А ответ "ошибка где-то в коде" тебя устроит? Телепатов нет. Что у тебя там не так, никто не знает. По вылаженному коду трудно о чем-то судить. Но в нем при беглом осмотре уже заметны ошибки. В частности переменные variantkol, nomervernogo, kolvoverno, nomervoprosa, nomerstroki, kolvovoprosov объявленны как глобальные и как локальные в Button1Click. Это не говоря уже об ужасном форматировании кода.


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
miksa30
  Дата 17.10.2014, 06:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(Poseidon @  16.10.2014,  15:28 Найти цитируемый пост)
В частности переменные variantkol, nomervernogo, kolvoverno, nomervoprosa, nomerstroki, kolvovoprosov объявлены как глобальные и как локальные в Button1Click

Это я уже исправил, делал все по книге от Delphi 7 к delphi2006 Для начинающих
PM MAIL   Вверх
Poseidon
Дата 17.10.2014, 11:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


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

Репутация: 9
Всего: 133
Цитата(miksa30 @  17.10.2014,  06:31 Найти цитируемый пост)
делал все по книге от Delphi 7 к delphi2006 Для начинающих
В этой книге рекомендуют создавать глобальные переменные? Рекомендуют создавать локальные переменные с такими же именами как и глобальные?

Цитата(miksa30 @  17.10.2014,  06:31 Найти цитируемый пост)
Это я уже исправил
С ошибкой что? Под отладкой на какой строке ошибка?



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
miksa30
  Дата 17.10.2014, 11:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(Poseidon @  17.10.2014,  11:32 Найти цитируемый пост)
на какой строке ошибка?

label1.caption:=listbox1.items[1+nomerstroki-1]; на данной строке
PM MAIL   Вверх
superVad
Дата 17.10.2014, 15:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 7
Всего: 15
Цитата(miksa30 @  17.10.2014,  10:42 Найти цитируемый пост)
label1.caption:=listbox1.items[1+nomerstroki-1]; на данной строке

У тебя nomerstroki есть глобальный, а есть локальный. Тут используется локальный, который никак не инициализируется. Ну и вопрос на засыпку: сколько будет 1-1?
Если уже код исправлен, то выложи еще раз исправленный. Только отформатируй пожалуйста, ничего в этой простыне не видно.
PM MAIL   Вверх
miksa30
Дата 20.10.2014, 12:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(superVad @  17.10.2014,  15:38 Найти цитируемый пост)
Только отформатируй пожалуйста, ничего в этой простыне не видно. 

вот скриншоты все печатал по ним user posted image
user posted image
PM MAIL   Вверх
superVad
Дата 22.10.2014, 12:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 7
Всего: 15
miksa30, вот почитай - ссылка
Основной смысл - пиши, как написаны делфевые библиотеки.
PM MAIL   Вверх
CynicRus
Дата 23.10.2014, 22:29 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 2
Всего: 5
ЗЫ: Это не учебник, это жесть какая-то. У меня глаза плачу кровью, когда я вижу такие названия переменных. А 1+NomerStroki-1 - это вообще Адъ и Израиль. Сменил бы ты учебник... Ну а вообще - берёшь точку входа в процедуру, после begin - тыкаешь справа на полях, появляется красная точка. Затем F8 и смотришь с помощью отладки, что же у тебя не так. Думается мне, что sigsegv при обращении к несуществующему элементу.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.3012 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.