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

[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]

теперь компилятор возвращает меня в библиотеку с ошибкой 202 stack overflow error

Смотри, что происходит:

Type
  TMatrix = array [0..99, 0..99] of integer;

procedure NEMSAVE(nameFile:String ;nameintofile:string ;graf: TMatrix);

Так было, правда?А давай посмотрим, каков размер массива graf? 100*100*sizeof(integer) = 20000 байт... А передается массив по значению, то есть, целиком заталкивается в стек. А стек не безграничен, его размер равен... (Зайди в меню Options -> Memory Sizes, и посмотри, сколько байт отведено под стек...) Скорее всего, 16384, по умолчанию? Вот тебе и переполнение стека...

Вот это:

procedure NEMSAVE(nameFile:String ;nameintofile:string ; VAR graf: TMatrix); { <--- Var замечаешь? }

тебе поможет, теперь массив не заталкивается в стек, а передается по ссылке...

Сообщение отредактировано: volvo - 6.09.2007 0:11