Ребята Паскаль!! помогите у меня паскаль abc пишу прогу, вот моя program abc; var f: file...

Question

Ребята
Паскаль!!
помогите
у меня паскаль abc пишу прогу, вот моя
program abc;
var
f: file of char;
c: char;
r: integer;
begin
assign (f, 'C:\Users\дети\Desktop\абв.txt');
{$I-}
reset (f);
{$I+}
r:= IOresult;
if r <> 0 then
writeln ('такого файла нет')
else
while not eof (f) do begin
read (f, c);
writeln (c);
end;
close (f);
readln
end.
я не знаю в чём проблема на распечатке написано (примеры) так а пишет типо неизвестное имя IOresult

Comments

Функции IOResult вообще нет в Pascal ABC можно использовать FileExists(),FileSize() и try ... except ... end

---

я разобрался, без него обошёлся

---

это ж блин сколько надо было писать чтоб просто открыть файлик на чтение

Answer 1

Const
    file_path = 'C:\Users\дети\Desktop\абв.txt';

var
    f: file of char;
    c: char;

begin
    if not FileExists(file_path) then
        writeln('такого файла нет')
    else
    begin
        assign(f, file_path);
        reset(f);
        while not eof(f) do
        begin
            read(f, c);
            writeln(c);
        end;
        close(f);
    end;
    
    readln();
end.

Не знаю подойдет ли это к вашей версии паскаля
Делалось на PascalABC.Net 3.1.0.1200

Comments

неа, сорь но спасиб