В экземпляре объекта не задана ссылка на объект

[BlackStoens]

Компиляция проходит нормально.
Однако при запуске программы выдаёт ошибку: в экземпляре объекта не задана ссылка на объект.
С такой ошибкой сталкиваюсь впервые. Искала насчёт неё в интернете, но нашла только когда такая ошибка возникает в C++. Я такой язык ещё не знаю, так что трудно понять в чём именно у людей возникает ошибка в программе.

Программа написана в ABC Pascal

PHP код:

program Stek;
 
uses crt, modst;
 
var j,x: integer;
    f: text;
    filename,filename1: string;
    MStek: TStek;
 
begin
   clrscr;
   MStek.Init; { ошибку выдаёт здесь }
   assign(f,'input.txt');
   reset(f);
   ...
end. 


Вот сама процедура(реализована в модуле):

PHP код:

procedure TStek.Init;

var i,k,N: integer;

begin
   k:=4;
   N:=10;
   SetLength(mas1,N-1);
   SetLength(mas2,N-1);
   SetLength(mas3,N-1);
   for i:=0 to N-1 do mas1[i]:=0;
   for i:=0 to N-1 do mas2[i]:=0;
   for i:=0 to N-1 do mas3[i]:=0;
   mas3[k+1]:=1;
   for i:=1 to N-1 do mas2[i]:=i+1;
   mas2[N]:=0;
end; 


[Utkin]

Вы сразу обращаетесь TStek не создав его. Это все равно что попытаться покормить ребенка не родив его перед этим. Если объесться грибов то это возможно (поэтому компилятор и не ругается), но на практике как-то не получается...

[Wicort]

Лишь немного уточню то, что написал Utkin.
Строчкой

var MStek: TStek;

Вы всего навсего объявляете, что переменная MStek у вас будет иметь тип TStek.
Но при этом объект Вы не создаете.
Для того, чтобы создать объект нужно написать

MStek := TStek.Create

Лишь после этого можно обращаться к объекту.

[eoln]

Utkin, Wicort, не факт. Если это паскалевский объект, то всё так и должно быть, главное не забыть в модуле этот объект занести в интерфейсную часть, а методы в implementation

BlackStoens, показывай как объявлен TStec и что это вообще такое (с АВС не работал, но могу предположить, что он и с классами может работать)

[Utkin]

Сообщение от eoln

Utkin, Wicort, не факт. Если это паскалевский объект, то всё так и должно быть, главное не забыть в модуле этот объект занести в интерфейсную часть, а методы в implementation

BlackStoens, показывай как объявлен TStec и что это вообще такое (с АВС не работал, но могу предположить, что он и с классами может работать)

Может и не факт, но паскалевский объект с вероятностью в 90% назывался бы TStack... В любом случае проверить стоит.

[eoln]

Почему? Его хоть как можно назвать, это от фантазии зависит. Просто в стандартном паскале классов нет, а объекты создаются просто через var

var MyObject = object
  ...
end;
var 
  obj1: MyObject;
begin
  //тут уже можно работать с объектом obj1, так как он уже создан
end.

[Utkin]

Давайте подождем ТС . Что-то мне подсказывает, что если он готовил своих кошек по Вашему рецепту, то такой ошибки бы у него не возникло...

[BlackStoens]

PHP код:

MStek:=TStek.Create; 


Вот эту строку я добавляла. Но при этом при запуске программы также выдаёт ошибку, что индекс находился все границ в массива (строка 36 в модуле), а также показывает, что ошибка в основной программе остаётся.

Вот сам объект. Он немного большой.

PHP код:

Unit modst;

interface

type
   TStek = class

   private
     k, N: integer;
     mas1, mas2, mas3: array of integer;

   public
     constructor create; 
     function Numberofsteks: integer; 
     procedure Add(l,x: integer); {добавление пустой ячейки в стеки мультстека}
     function Top(i: integer): integer; {просмотр вершины мультистека }
     procedure Push(i: integer); {добавление элемента в вершину мультистека}
     function Is_Empty(i: integer): boolean; {проверка на пустоту}
     function Is_Full: boolean; {проверка на заполненность}
     procedure Print;
   end;

implementation


constructor TStek.create;

var i,k,N: integer;

begin
   k:=4;
   N:=10;
   SetLength(mas1,N-1);
   SetLength(mas2,N-1);
   SetLength(mas3,N-1);
   for i:=0 to N-1 do mas1[i]:=0;
   for i:=0 to N-1 do mas2[i]:=0;
   for i:=0 to N-1 do mas3[i]:=0;
   mas3[k+1]:=1;
   for i:=1 to N-1 do mas2[i]:=i+1;
   mas2[N-1]:=0;
end;


function TStek.Numberofsteks: integer;

begin
   numberofsteks:=k;
end;


procedure TStek.Add(l,x: integer);

var tmp,tmp1,i: integer;
    tmmas1, tmmas2, tmmas3: array of integer;
begin
   if is_full then
   begin
      SetLength(tmmas1,N);
      SetLength(tmmas2,N);
      SetLength(tmmas3,N);
      for i:=0 to N do
      begin
         tmmas1[i]:=mas1[i];
         tmmas2[i]:=mas2[i];
         tmmas3[i]:=mas3[i];
      end;
      SetLength(mas1,N);
      SetLength(mas2,N);
      SetLength(mas3,N);
      N:=N+1;
      SetLength(mas1,N);
      SetLength(mas2,N);
      SetLength(mas3,N);
      for i:=0 to N-1 do
      begin
         mas1[i]:=tmmas1[i];
         mas2[i]:=tmmas2[i];
         mas3[i]:=tmmas3[i];
      end;
      SetLength(tmmas1,N);
      SetLength(tmmas2,N);
      SetLength(tmmas3,N);
      mas3[k+1]:=N;
      mas2[N]:=0;
   end;
   mas1[mas3[k+1]]:=x;
   tmp:= mas3[l];
   tmp1:=mas3[k+1];
   mas3[k+1]:=mas2[mas3[k+1]];
   mas3[l]:=tmp1;
   mas2[mas3[l]]:=tmp;
end;


function TStek.Top(i: integer): integer;

begin
   top:=mas1[mas3[i]];
end;


procedure TStek.Push(i: integer);

var tmp: integer;

begin
   mas1[mas3[i]]:=0;
   tmp:= mas2[mas3[i]];
   mas2[mas3[i]]:=mas3[k+1];
   mas3[k+1]:=mas3[i];
   mas3[i]:=tmp;
end;


function TStek.Is_Empty(i: integer): boolean;

begin
   if (mas3[i]=0) then Is_Empty:=true
      else Is_Empty:=false;
end;


function TStek.Is_Full: boolean;

begin
   if (mas3[k+1]=0) then Is_Full:=true
      else Is_Full:=false;
end;

procedure TStek.Print;

var j: integer;

begin
   for j:=1 to N do write(mas1[j],'  ');
   writeln;
   for j:=1 to N do write(mas2[j],'  ');
   writeln;
   for j:=1 to N do write(mas3[j],'  ');
   writeln;
   writeln;
   writeln;
end;


end. 


Вот основная программа:

PHP код:

program Stek;

uses crt, modst;

var j,x: integer;
    f: text;
    filename,filename1: string;
    MStek: TStek;

begin
   clrscr;
   MStek:=TStek.Create; {ошибка здесь}
   assign(f,'input.txt'); 
   reset(f);
   while not Eof(f) do
   begin
      for j:=1 to MStek.Numberofsteks do
        if not Eof(f) then
        begin
           read(f,x);
           MStek.Add(j,x)
        end;
   end;
   close(f);
   for j:=1 to MStek.Numberofsteks do
   begin
      str(j,filename1);
      filename:='OUTPUT'+filename1;
      assign(f,filename);
      rewrite(f);
      while (MStek.Is_Empty(j)<>true) do
      begin
         writeln(f,MStek.Top(j));
         MStek.Push(j);
      end;
      close(f);
   end;
   readln;
   readln;
end. 


[BlackStoens]

А, и вообще программа считывает из исходно файла данные, добавляет их поочерёдно в стеки мультистека и уже потом эти данные, взятые из мультистека, записывает в выходные файлы.

[Utkin]

Ну вот eoln (здесь режиссер предполагает тяжелый вздох)... Класс чистой воды.

Вот эту строку я добавляла. Но при этом при запуске программы также выдаёт ошибку, что индекс находился все границ в массива (строка 36 в модуле), а также показывает, что ошибка в основной программе остаётся.

Вообще-то правильно он говорит.

SetLength(mas1,N-1);

Вы создаете 9 ячеек в массиве, а обращаетесь к 10-ти. Я бы на месте Паскаля вообще бы обиделся - таких строк у Вас минимум 3.