Здравствуйте. Возникла проблема при составлении модуля, мне почему то пишет что файл не найден, когда я хочу типа просто сохранить картинку в png формате через графический модуль.Если нужно, я скину сам модуль
program ModulNarvik;
uses Narvik;
var t: text;
f: file of real;
fnet: file;
n: byte;
s:string;
begin
writeln('Выберите файл с которым хотите работать (1 - текстовый файл, 2 - типизированный файл, 3 - нетипизированный файл)');
read(n);
if (n <> 1) and (n <> 2) and (n <> 3) then
writeln('Вы ввели не верное числовое значение (напоминалка: 1 - текстовый файл, 2 - типизированный файл, 3 - нетипизированный файл)');
if n = 1 then begin
opentxt(t);
readtxt(t);
exit;
end;
if n = 2 then begin
openfil(f);
readfil(f);
exit;
end;
if n = 3 then begin
openPicture(s);
exit;
end;
end.
Типа я должен загрузить файл (указав путь к нему) и он должен его создать в png файле, но он типа говорит, что файл не найден, но как он может быть не найден, если он его должен создать, я отдельно от модуля запускал прогу, всё нормально работает.
program ModulNarvik;
uses Narvik,GraphABC;
var t: text;
f: file of real;
fnet: file;
n: byte;
s:string;
begin
writeln('Выберите файл с которым хотите работать (1 - текстовый файл, 2 - типизированный файл, 3 - нетипизированный файл)');
read(n);
if (n <> 1) and (n <> 2) and (n <> 3) then
writeln('Вы ввели не верное числовое значение (напоминалка: 1 - текстовый файл, 2 - типизированный файл, 3 - нетипизированный файл)');
if n = 1 then begin
opentxt(t);
readtxt(t);
exit;
end;
if n = 2 then begin
openfil(f);
readfil(f);
exit;
end;
if n = 3 then begin
openPicture(s);
exit;
end;
end.
Модуль (полностью)
Unit Narvik;
Interface
uses GraphABC;
procedure opentxt(var t:text); //откртие,закрытие,сохранение,ввод текстового файла
procedure readtxt(var t:text); //вывод,чтение текстового файла
procedure openfil(var f:file of real); //откртие,закрытие,сохранение,ввод типизированного файла
procedure readfil(var f:file of real); //вывод,чтение типизированного файла
procedure openPicture(s:string); //закрытие,сохранение,ввод нетипизированного файла
implementation
procedure opentxt(var t:text);
var
s: string;
i,n:integer;
const name = 'output.txt';
begin
assign (t,name);
rewrite (t);
write('Введите количество строк');
readln(n);
for i := 1 to n do begin
writeln('Введите ', i, ' строку');
readln(s);
Println(t, s);
end;
close(t);
end;
procedure readtxt(var t:text);
var
s: string;
const name = 'output.txt';
begin
assign (t,name);
reset(t);
writeln;
writeln;
writeln;
writeln('Текст с файла:');
while not eof(t) do begin
readln(t,s);
writeln(s);
end;
close(t);
end;
procedure openfil(var f:file of real);
var
m: array [1..1000] of real;
n,i: integer;
a: real;
const name2 = 'massiv.dat';
begin
assign (f, name2);
rewrite(f);
writeln('Введите количество элементов');
readln(n);
for i:= 1 to n do begin
writeln('Введите ', i, ' элемент');
read(m[i]);
Write(f, m[i]);
end;
close(f);
end;
procedure readfil(var f:file of real);
var
m: array [1..1000] of real;
i,n: integer;
a: real;
const name2 = 'massiv.dat';
begin
a := 0;
assign (f, name2);
reset(f);
for i:= 1 to filesize(f) do begin
read(f, m[i]);
a := a + m[i];
end;
writeln('Сумма элементов массива = ', a);
close(f);
end;
procedure openPicture(s:string);
var
b:Picture;
begin
write ('Введите имя файла рисунка: ');
readln (s);
window.Clear;
b:=Picture.Create(s);
b.Draw(50,50);
SaveWindow('1.png');
Window.Close
end;
begin
end.
Почему обидно?
Метод тыка – метод напрасной траты личного жизненного времени.
Разумней потратить время на изучение предметной области, и затем с пользой для себя использовать приобретенные знания.
