М | Код нужно заключать между тегами [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 -