[Dievee]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 assignfile(t1,'D:\testdelphi2.txt');
 reset(t1);
  a:=edit1.Text;
  b:=edit2.Text;
   writeln(t1,a);
   //writeln(t1,b);
 closefile(t1);
end;

end.

Программа должна записать строку которая написана в edit1 но вот возникают такие ошибки , в чем проблема? За таким путем есть такой файл несколько раз проверил.

[Страдалецъ]

105 File not open for output (Файл не открыт для вывода).

Ошибка генерируется процедурами WRITE или WRITELN в текстовом файле в случае, если файл не открыт для вывода.

Вывод. По какой-то причине ваше приложение не может достучаться до этого файла. Очевидная из возможных причин - нет прав. Еще вариант файл уже открыт каким-то процессом.

[NumLock]

в справке про это написано:

Код:

procedure Reset(var F [: File; RecSize: Word ] );
If F is a text file, F becomes read-only.

[Dievee]

Сообщение от Страдалецъ

105 File not open for output (Файл не открыт для вывода).

Ошибка генерируется процедурами WRITE или WRITELN в текстовом файле в случае, если файл не открыт для вывода.

Вывод. По какой-то причине ваше приложение не может достучаться до этого файла. Очевидная из возможных причин - нет прав. Еще вариант файл уже открыт каким-то процессом.

На компьютере единственный пользователь он же админ ,файл ничем не открыт даже создал новый , но все равно та же ошибка (

[Dievee]

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

в справке про это написано:

Код:

procedure Reset(var F [: File; RecSize: Word ] );
If F is a text file, F becomes read-only.

Это значит что таким способом написать что либо в файл нельзя?

[ikv_2006]

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

Это значит что таким способом написать что либо в файл нельзя?

Читаем help в теме про "Reset" дальше и тыркаем в ссылки:
----------
Related Information

System.Append
System.AssignFile
System.CloseFile
System.Rewrite
System.Truncate

----------

[Страдалецъ]

Вот ведь. А я и забыл про эту фишку Reset с текстовым файлом. Дествительно, если не дать указание Append после открытия, то будем ошибку получать при Write. Склероз однако.