Модули и процедуры

[puporev]

Нужно сохранить файл как обычно, только имя файла должно точно совпадать с названием модуля, у тебя Modul. Потом нажать Ctrl+F9, появится окошко с вопросом, нажать OK и все, в папке с файлом появится файл MODUL.TPU

[Алексей Д.]

У меня пишет Cannot run a unit.

[puporev]

Все правильно. Нажми OK и все.

[Алексей Д.]

У меня ничего не сохраняется почему то..


Ты можешь создать вот этот модуль:

unit modul;
interface
procedure print(var dest: text; const f_name: string);
implementation
procedure visitka;
begin
writeln('bla bla bla');
end;
procedure print(var dest: text; const f_name: string);
var
f: text;
s: string;
begin
assign(f, f_name); reset(f);
while not eof(f) do begin
readln(f, s);
writeln(dest, s);
end;
end;
end.

и выложить тут как до этого сделал??

[puporev]

Вот твой модуль.

[Алексей Д.]

А ты не знаешь почему используя этот модуль у меня пишет stack overflow error?

program lab5;
uses crt, modul, printer;
procedure print(var dest: text; const f_name: string);
var
f: text;
s: string;
begin
print(dest, s);
end;
var
txt: text;
s: string;
i: integer;
begin
write('Imya faila: '); readln(s);
writeln('Vvedite 1) pechat 2) prosmotr');
readln(i);
case i of
1:print(lst,s);
2:
begin
assigncrt(txt); rewrite(txt);
print(txt, s);
close(txt);
end;
end;
readln;
end.

[puporev]

Я вообще не понимаю программу, там ошибки.
Процедура print(var dest: text; const f_name: string); вообще бессмысленная, она ничего не делает. Я же вам ее переделал.
program lab5;
uses crt, modul, printer; //для чего модуль printer?
//Зачем еще раз процедура, если она есть в модуле?
procedure print(var dest: text; const f_name: string);
var
f: text;
s: string;
begin
print(dest, s);
end;

var
txt: text;
s: string;
i: integer;
begin
write('Imya faila: '); readln(s);
writeln('Vvedite 1) pechat 2) prosmotr');
readln(i);
case i of
1rint(lst,s); //что здесь за переменная lst?
2:
begin
assigncrt(txt); rewrite(txt); //здесь я не понимаю смысл assigncrt(txt);
print(txt, s); //что делает процедура?
close(txt);
end;
end;
readln;
end.
А вообще stack overflow error это "Переполнение стека".
Эта ошибка генерируется на входе в процедуру или функцию, скомпилированную в режиме {$S+}, в случае, если нет достаточной области для размещения локальных переменных подпрограммы. Увеличьте размер стека, используя директиву компилятора {$М}.
У меня такое бывало, исправлял в программе методом тыка, что-то неправильно вводится, не хватает памяти.
Короче и модуль и программа никуда не годятся.

[Алексей Д.]

модуль принтер для распечатки, lst входит в этот модуль и по задумке выводить мой текст на печать, assigncrt(txt) ну это функция какая то, она нужна по любому..

Я вот так теперь переделал:

program lab5;
uses crt, modul, printer;
var
txt: text;
s: string;
i: integer;
begin
write('Imya faila: '); readln(s);
writeln('Vvedite 1) pechat 2) prosmotr');
readln(i);
case i of
1: print(lst, s);
2:
begin
assigncrt(txt); rewrite(txt);
print(txt, s);
close(txt);
end;
end;
readln;
end.

Это учитывая что модуль modul вот такой:

unit modul;
interface
procedure visitka;
procedure print(var dest: text; const f_name: string);
implementation
procedure visitka;
begin
writeln('bla bla bla');
end;
procedure print(var dest: text; const f_name: string);
var
f: text;
s: string;
begin
assign(f, 'C:\modul.txt'); reset(f);
while not eof(f) do begin
readln(f, s);
writeln(dest, s);
end;
end;
end.

Кстати можешь этот модуль передать, так как от предыдущего он слегка отличается)

[puporev]

Извини конечно, но твой модуль мне как то без надобности.
assigncrt(txt) - это не какая-то функция, а процедура связывающая текстовый файл с млдулем Crt, и зачем она тебе нужна, понятия не имею. А вот процедура assign(f,filename) нужна для связывания твоей переменной с именем файла. И вообще я сейчас буду занят и с вашей проблемой расстаюсь.

[Алексей Д.]

Ты мне просто его скомпилируй и выложи тут как до этого сделал, а то у меня до сих пор не работает эта функция..я там просто изменения внес, указал путь к файлу, а то пишет file not found..