Pascal. Ошибка file not found.

[DeKot]

Можно использовать стандартные средства вывода сообщений Windows

if IOResult = 0 then
begin
  // Ваш код программы при наличии файла
end
else
        Application.MessageBox(PChar(Файл не найден.Нажмите OK'),
                             PChar('   ИМЯ Вашей программы'),
                             MB_ICONQUESTION+MB_OK);

[knight]

Сообщение от DeKot

Можно использовать стандартные средства вывода сообщений Windows

if IOResult = 0 then
begin
  // Ваш код программы при наличии файла
end
else
        Application.MessageBox(PChar(Файл не найден.Нажмите OK'),
                             PChar('   ИМЯ Вашей программы'),
                             MB_ICONQUESTION+MB_OK);

Неее... в pascal этот фокус не пройдет Там только TurboVision есть, но это уже другая история....

[Axel1981]

Решил воспользоваться советом alex_fcsm и сделать без goto а с помощью repeat until.

При компилляции Pascal выдаёт ошибку Error 3: Unknown indenifier
и указывает на ch='#27

Подскажите, пожалуйста, что я делаю не так.

Буду вам очень благодарен.

[pomoshnic]

Если ты хочешь чтоб при нажати на клавшу <Esc> программа завершала свою работу тогда вместо

until ch='#27

пиши

until readkey=#27;

[pomoshnic]

Сообщение от alex_fcsm

Можно сделать с помощью repeat until

var ch:char;
........
repeat
writeln();
.........
writeln('Выход - Esc')
ch:=readkey
case ch of
'1':begin
    end;
'2':begin
    end;
 end;
until ch='#27;

Точнее

until ch=27;

или

until readkey =#27;

[Axel1981]

pomoshnic, спасибо за подсказку .