Снова всем привет) И снова это я)
Я делаю програмку для обработки текста (создание файла, осмотр содержания файла и обьеденение 2х файлов (пока не дошёл)), и столкнулся с очередной проблемой. Ребят, помогите пожалуйста разобраться с ошибкой.
Вот основная программа:
program lab4;
uses filework;
var Tx, filename :integer;
label CASEPOINT;
begin
CASEPOINT:
writeln(' menu');
writeln('1 - sozdatj novij fajl');
writeln('2 - osmotretj fajl');
writeln('3 - objedenitj 2 fajlaà');
writeln('4 - zakon4itj rabotu ');
readln (Oper);
case (Oper) of
1: begin
FCreate(Tx, filename);
end;
2: begin
FRead(Tx, filename);
end;
{ 3: begin
FMergin
end; }
4: begin
exit;
end;
end;
goto CASEPOINT;
end.
И вот модуль к ней:
unit filework;
interface
procedure Fcreate( var Tx: Text; FileName: String; s: String);
procedure FRead( var f :text; s:string);
implementation
uses CRT;
procedure FCreate;
Var
Tx : Text;
FileName : String;
s : String;
i,n : Integer;
Begin
Writeln('vvedi nazvanie fajla');
Readln (FileName);
Assign(Tx,FileName);
Rewrite (Tx);
Writeln (vvedi koli4estvo strok');
Readln(n);
Writeln ('vvedi stroki');
For i:=1 to n do
Begin
Readln (s);
Writeln(Tx,s);
End;
Close(Tx);
End;
procedure Fread;
Var
f : text;
S : string;
begin
clrscr;
[b]assign(f, filename);[/b]
reset(f);
write(' ');
while not Eof(f) do
begin
readln(f, S);
write(S,' ');
end;
close(f);
readln
end.
Есть подозрения, что проблем с подключением модуля, и с процедурами в нём намного больше, чем показывает компилятор..
Но вот собственно что мне не даёт покоя: Identifier not found "filename"
В коде я выделил это место. В гугле не очень много об этом написано, но вычитал примерно такое: "проблема бывает в паскале, используй делфи".
Помогите пожалуйтса с этим разобарться....
