Динамические структуры.объекты

@gabriela · Регистрация: 27.10.2012

Студворк — интернет-сервис помощи студентам

Создать базу сотовых компаний.вроде все по порядку делала.но при компиляции выскакивает непонятная ошибка....помогите выяснить причину

@volvo · 15.12.2012, 16:41

Какая ошибка? Все нормально у меня откомпилировалось. Единственное, что надо поправить - это в 46 строке:

Delphi

1	Abonent:= TAbonent.Create_Read; // Было : Abonent:= Abonent.Create_Read;

@gabriela · 15.12.2012, 17:01 **[ТС]**

когда имя файла вводите abonents в окошке появляются цифры с буквами и оно закрывается

@volvo · 15.12.2012, 21:32

Это, пардон, никак не этап компиляции. Это уже рантайм. Задавай вопросы более четко.

А ошибка у тебя - потому что структура файла не совпадает с тем, что ты пытаешься из него читать. Вот смотри, файл данных:

Сотовые компании
Теле 2
Немцов А.С.
Плехановская
10
15
89514031200
100р

Сидорова Е.В.
Танеева
3
2
89523005412
50р

Всё, дальше - неважно, уже будет видна ошибка. Теперь - как ты это читаешь:

Delphi

      AssignFile(t,file_name);
      Reset(t);
      readln(t,networkname);
      Network:=TNetwork.create(networkname); // Создана сеть, ладно, допустим
      while not eof(t) do
      begin
        readln(t,companyname); // <--- Вот оно...
        abonent:=TAbonent.Create(t);
        network.add(companyname,abonent)
      end;
      CloseFile(t)

Видишь, в чем дело, да: Перед каждым именем абонента программа читает имя компании. У тебя перед первым именем абонента оно есть, а перед вторым - уже нет. То есть, за имя компании на второй итерации принимается "Сидорова Е.В.", ну и при попытке в число прочесть строку программа вылетает.

Но даже до этого не дойдет. Обрати внимание также на строку:

Delphi

1	if(p^.next <> nil) or (P^.next^.company.comparecompany(namecompany)>0) then

в методе TNetwork.Add. Эта строка неверная: если p^.next будет равно NIL (а при первом добавлении так оно и будет), то будет вылет, потому что первое условие не выполнилось, программа попробует выполнить второе, и перейдет по пустому указателю. Правильно строка выглядит так:

Delphi

1	if(p^.next = nil) or (P^.next^.company.comparecompany(namecompany)>0) then

(если p^.next = nil), то второе условие даже не проверяется, результат и так будет положительный... В общем, основные проблемы у тебя - со структурой файла данных...

@gabriela · 16.12.2012, 17:51 **[ТС]**

исправила все,но теперь выяснилась другая проблема на экран выводит название сети и компании,а информацию об абоненте нет.хотя в процедурах это делается

@gabriela 0 / 0 / 0 Регистрация: 27.10.2012 Сообщений: 22
	15.12.2012, 17:01 [ТС]	3
	когда имя файла вводите abonents в окошке появляются цифры с буквами и оно закрывается 0

Опции темы