Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.01.2014, 17:15   #1
Otar4ik
Форумчанин
 
Регистрация: 16.04.2010
Сообщений: 123
По умолчанию Не удаляет из стэка

Добрый день дали программу создание линейного списка и стэка.Программа работает компилируется,добавляет элементы в список и в стэк,но не могу удалить из стэка

Программа опять же запускает,но при нажатии кнопки Удаление выходит ошибка:

Program 23-4-5.pas(53) : Ошибка времени выполнения: Object reference not set to an instance of an object.

Вот фрагмент кода,на котором всё слетает

Код:
procedure delstc(s: KNode);
var
   s1: KNode;
   str, str1: string[100];
begin
   if s <> nil then 
   begin
      str := l.Items.Item[l.SelectedIndex].tostring;
      str1 := 'Дата: ' + s1^.date + '; Температура: ' + inttostr(s1^.tempr); ----------------Здесь ошибка.
      if str = str1 then
      begin
         s1 := s;
         s := s^.next;
         dispose(s1); 
      end;
      sh(ls);
   end;
end;
P.S-sh(ls) отвечает за вывод на форму в листбокс.
Otar4ik вне форума Ответить с цитированием
Старый 16.01.2014, 18:27   #2
phomm
personality
Старожил
 
Аватар для phomm
 
Регистрация: 28.04.2009
Сообщений: 2,876
По умолчанию

Переменная не инициализирована (она локальная, их обязательно надо инициализировать тем или иным способом) - вот и ошибка соответсвующая.
У Вас, по идее, должна быть там s, а не s1
phomm вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
не удаляет файл zekk3r Общие вопросы Delphi 2 29.03.2013 18:37
Не удаляет элементы RIO Общие вопросы Delphi 5 16.11.2010 21:30
Не все удаляет AgressiveBehavior Общие вопросы Delphi 2 29.09.2009 21:18
SHFileOperation Function не удаляет Roont Общие вопросы C/C++ 3 15.07.2009 10:33
Проблема с рекурсивным закрашиванием. Переполнение стэка. prost Помощь студентам 7 02.06.2008 23:34