Invalid qualifier

[Jugger]

Вот такой небольшой код, возникает ошибка Error 121 : Invalid qualifier в выделенной строчке
Подскажите в чем проблема
Гуглил, рылся, в чем дело не понял

program mememe;
  type
   vect=object
    private
     pInt : ^integer;
          i : integer;
     public
     constructor create;
     constructor initzero(const size: integer);
     constructor init(const value,size: integer);
     function get(a:integer):integer;
     destructor killall;
     procedure compare(a,b:integer);
 end;


constructor vect.create;
                    begin
                      {inherited create;  }
                       i := 1;
                          New (pInt);
                             pInt^ := i;
                          end;

constructor vect.initzero(const size: integer);
begin
                          GetMem(pInt, size * SizeOf(integer));
                             pInt^ := 0;
                    end;

constructor vect.init(const value,size: integer);
                    begin
                     { inherited Create;  }
                     GetMem(pInt, size * SizeOf(integer));
                             pInt^ := value;

                          end;

 procedure vect.compare(a,b:integer);
                            begin
                           if pInt^[a]>pInt^[b] then       /*<------------------------------------------------------------------------------------------*/
                            writeln('element nomer ',a,' bolse elementa nomer',b);
                              end;
function get(a:integer):integer;
       begin
       get:=pInt^[a];
       end;
 destructor vect.killall;
 begin
 freemem(pInt,i);
 end;

 var
 a:vect;
   begin


                                       end.

[Stilet]

pInt : ^integer; подразумевается динамический массив?
Если да то наверное стоит описать его такInt : array[0..0] of integer;
Хотя вот не помню как в старом паскале это точно делалось.

[alexander13]

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

Если да то наверное стоит описать его такInt : array[0..0] of integer;

Примерно так.. Ошибка - потому что он пытается индексировать не массив.
Можно как-нибудь так попробовать:

type myarr = array of integer;

...
   pInt : ^myarr;
...

[ViktorR]

Посмотрите на пример из книги Т.А. Павловская, Паскаль. Программирование на языке высокого уровня. стр.128 - книга есть в списке литературы. Стр. с описанием см. во вложении.


Вроде так ...

[alexander13]

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

Посмотрите на пример из книги...

Собственно, то же, что и у меня.

[Stilet]

array of integer

Та вот я боюсь что в Турбопаскале еще не существовало открытых массивов... Память уже не та...

[alexander13]

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

Та вот я боюсь что в Турбопаскале еще не существовало открытых массивов... Память уже не та...

Вот насчет турбо паскаля я тоже не уверен.. У меня-то тут FPC, я на нем и проверил.

[ViktorR]

Приведённый пример, с явным описанием размера массива - для TP.



Вроде так ...

[Poma][a]

type myarr = array of integer;

Как уже сказали предыдущие ораторы : В турбо динамика не прокатит. А Вот Вариант с MaxInt'ом турбушка с радостью скушает..

Виталий, спасибо! Не знал что динамические массивы можно так объявлять

[alexander13]

Хм.. интересно.. Никогда на паскале не писал ничего динамического.. а тут такие тонкости.
Век живи - век учись =)