Функции и процедуры, помогите найти ошибку Опции

[Glykaman]

М

Код нужно заключать между тегами [code = pas ] [ /code ]

Значит проблема такая я пытался сделать библиотеку процедур. В этой библиотеке мне надо обьявить массив.
Паскаль ругается на ошибку 121 неизвесный сертификатор при первом же использовании массива (массив graf).
вот исходник:

unit DopforGr;
interface
uses
 graph;

 procedure NEMSAVE(nameFile:String ;nameintofile:string ;graf:array of integer);
 implementation

procedure NEMSAVE(nameFile:String ;nameintofile:string ;graf:array of integer);
 var

 dlafor:integer;
 col:integer;
 s,d:byte;
 gFile:text ;
 begin
 col:=0;
 assign(gFile,'mario.nem') ;
 rewrite(gFile) ;
 writeln(gFile,nameintofile) ;
 for s:=0 to 99 do
 for d:=0 to 99 do
 begin
 if graf[d,s]>0 then  col:=col+1;
 end;
 writeln(gFile,col);
 for s:=0 to 99 do
 for d:=0 to 99 do
 begin
 if graf[d,s]>0 then begin writeln(gFile,d);  writeln(gFile,s) ;   writeln(gFile,graf[d,s]); end;
 end;
 


 close(gFile) ;
 end.

подозреваю что я неправильно обьявил массив или какаято проблема с синтаксисом.
сама по себе процедура должна вызываться из библиотеки зарезервированым словом NEMSAVE(переменная;переменная;имя массива) и должна сохранять файлы с параметрами для графики.
Недавно примерно такаяже проблема была у меня при записи в типиризированые типы файлов массивов, но там удалось обойти при помощи циклов и текстовых файлов.
Зарание благодарен.

Сообщение отредактировано: klem4 - 5.09.2007 20:59

[volvo]

Проблема в другом: ошибка №121 - это неправильный квалификатор, т.е., ты объявил Graf одномерным массивов, а обратиться к нему пытаешься, как к двумерному.. А нельзя

[Glykaman]

Проблема в другом: ошибка №121 - это неправильный квалификатор, т.е., ты объявил Graf одномерным массивов, а обратиться к нему пытаешься, как к двумерному.. А нельзя

Понятно как мне тогда обьявить двухмерный массив? На код:

unit DopforGr;
interface
uses
 graph;

 procedure NEMSAVE(nameFile:String ;nameintofile:string ;graf:array [0..99,0..99] of integer);
 implementation

procedure NEMSAVE(nameFile:String ;nameintofile:string ;graf:array [0..99,0..99] of integer);
 var

 dlafor:integer;
 col:integer;
 s,d:byte;
 gFile:text ;
 begin
 col:=0;
 assign(gFile,'mario.nem') ;
 rewrite(gFile) ;
 writeln(gFile,nameintofile) ;
 for s:=0 to 99 do
 for d:=0 to 99 do
 begin
 if graf[d,s]>0 then  col:=col+1;
 end;
 writeln(gFile,col);
 for s:=0 to 99 do
 for d:=0 to 99 do
 begin
 if graf[d,s]>0 then begin writeln(gFile,d);  writeln(gFile,s) ;   writeln(gFile,graf[d,s]); end;
 end;
 


 close(gFile) ;
 end.

ругается что после array должен стоять of. (А если это обойти придётся делать 100 массивов ономерных.)

Сообщение отредактировано: мисс_граффити - 5.09.2007 23:25