Что означает Run-Time Error 123 ???

[M@N]

На обработке следующих строк кода

Код: Выделить всё

var f:textfile;
...
begin
...
assign(f,'File.txt');
...
  {$I-}
  //Проверка существования файла (IOresult=0 если да).
  append(f);
  //Если существует, то записать данные через пустую строку, иначе создать и записать данные.
  if ioresult=0
    then writeln(f)
    else rewrite(f);
  Write_In_File;//Процедура записи в файл.
  closefile(f);
  MessageDlg('Данные сохранены в файл "File.txt"',mtInformation,[mbOk],0);
  {$I+}


Код: Выделить всё

procedure TForm1.Write_In_File;
begin
...
  writeln(f,UTF8toSys('Строка'));
...
end;


программа выдает эту ошибку на строке

Код: Выделить всё

writeln(f,UTF8toSys('Строка'));


Но до этого все было работоспособным.



IDE : Lazarus 1.0.14

[SSerge]

Внимательно читаем описание Runtime паскаля. Можно даже для почившего в бозе Borland Pascal
Если контроль операций ввода-вывода был выключен директивой $I-, и произошла ошибка ввода-вывода, до тех пор, пока значение переменной IORESULT не прочитано программой, все операции ввода-вывода находятся в неопределенном состоянии и будут приостановлены либо будут заканчиваться ошибкой.

Смотрим, где у вас заканчивается блок {$I-} {$I+}

И делаем так, чтобы IORESULT соответствовал единственной операции, которую вы контролируете.

И да, проверять существование файла через append - это нечто. Функции типа FileExists и прочий stat уже отменили, да?

[M@N]

Спасибо за помощь