Ошибка i o 105 делфи

Luchfan123

0 / 0 / 0

Регистрация: 29.03.2014

Сообщений: 16

Метки нет (Все метки)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

unit U8_2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  f:text;
  s:string;
 
  implementation
 
{$R *.dfm}
 
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 AssignFile(f, 'Pogrebnyak.txt');
 Rewrite(f);
 Reset(f);
 Writeln(f,s);
 CloseFile(f);
end;
 
end.

Я пишу название файла в первое текстовое поле,нажимаю на кнопку «Создание»,но мне выдает ошибку I/O Error 105.Подскажите,пожалуйста,где здесь ошибка?

2 / 2 / 0

Регистрация: 25.09.2012

Сообщений: 148

f:textfile;

Вот так надо.

0 / 0 / 0

Регистрация: 29.03.2014

Сообщений: 16

droider

4896 / 2766 / 851

Регистрация: 04.10.2012

Сообщений: 10,076

1
2
3
4
5
6
7
8
9
10

var
f:TextFile;
s:string;
begin
AssignFile(f, Edit1.Text);  //задаем в текстовом поле путь к файлу с расширением
s :='Тестовая строка';
Rewrite(f);  //создаем файл
Write(f, s); //записываем в него строку
CloseFile(f); //закрываем файл
end;

Либо еще проще

1

FileCreate(Edit1.Text); //создаем пустой файл c заданным именем и расширением

Luchfan123

0 / 0 / 0

Регистрация: 29.03.2014

Сообщений: 16

Получилось!Спасибо большое!

Добавлено через 22 минуты

1
2
3
4
5
6
7
8
9
10
11
12

procedure TForm1.Button1Click(Sender: TObject);
begin
 AssignFile(f, Edit1.Text);
 Rewrite(f);
  if FileExists(s) then
  begin
  AssignFile(f,s);
   Reset(f);
  end;
 Write(f,s);
 CloseFile(f);
end;

В общем пишу функцию,ели файл существует его открыть его,но почему то он у меня создается по-новому,что здесь не так?

droider

4896 / 2766 / 851

Регистрация: 04.10.2012

Сообщений: 10,076

Luchfan123,

1
2
3
4
5
6
7
8
9
10
11
12
13

begin
 AssignFile(f, Edit1.Text);
  if FileExists(Edit1.Text) then
  begin
   Reset(f);
  end
  else
  begin
  Rewrite(f);
 Write(f,'Мой текст');
  end;
 CloseFile(f);
end;

0 / 0 / 0

Регистрация: 29.03.2014

Сообщений: 16

4662 / 3096 / 855

Регистрация: 15.07.2013

Сообщений: 17,867

Одной строки достаточно.

Пипл срочно надо избавиться от этой ошибки

код вроде верный

try

AssignFile(f, FileName);
Reset(f);
except
Rewrite(f) ;
end;

Файл существует
но на любую попытку скинуть в него хоть что то мессадже

IO Error 105

что не так?!

Подожди, т.е. теоретически возможна команда ReWrite без Assign-а?…
Это ли не ошибка?
Тем более если файл существует, то он откроется для чтения и понятно, что писать он в себя ничего не дает это ошибка два.

Ой прошу пардону

AssignFile(f, FileName);
try
Reset(f);
except
Rewrite(f) ;
end;

Rewrite() отрабатывает

ругань конкретно идет на WriteLn(f,BlaBlaBlaBlaBlaBlaBla) при Reset(f) при пошаговой трассировке F8

напоминаю 105 ошибка это невозможность открыть файл для записи

AssignFile(f, FileName) OK
try OK
Reset(f); OK
except OK

структура отработала (т.е. существующий файл получил указатель и открыт для работы)

WriteLn(f,BlaBlaBlaBlaBlaBlaBla)

IO Error 105

PS кстати аналогичное построение с $I- …. $I+ результат аналогичный

Че-то я не пойму:
что за конструкция, для чего она, или я чего-то не понимаю или она лишена логики. т.е. программа должна попробовать открыть файл для чтения и если не получилось то открыть для записи….? Странно как-то это.

try
Reset(f);
except
Rewrite(f) ;
end;

а почему отрабатывает Rewrite(f) ; т.е. для чтения он открытьсяне может?
а для записи может?…..

далее WriteLn(f,BlaBlaBlaBlaBlaBlaBla)
BlaBlaBlaBlaBlaBlaBla-это переменная или имеется ввиду WriteLn(f,’BlaBlaBlaBlaBlaBlaBla’)?

Мне кажется но все-таки открывается для чтения и ругается при попытке записать что-либо в него, что вообщем-то естественно.

Если хочешь писать пиши:

[s]

———————

Think different ©Steve Jobs 

———————

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Собственно по ошибкам в/в, можно исп. дерективы компилятора {$I-} и {$I+}
Добавлено @ 02:05

Имхо, тип здесь не играет особой роли…

Считаешь что мне делать нечего?

———————

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Ошибка в общем-то проста и очевидна, я не зря про тип спрашивал, не совсем был уверен, хотя и догадывался откуда ноги растут, сейчас добрался до Дельфи проверил…

Вот код:

Если этот код запустить, и файл ‘c:myfile.txt’ существует, то получим эту самую ошибку 105. Почему? До потому что reset не открывает текстовые файлы на запись! только на чтение. Для записи текстовый файл должен быть открыт только rewrite или append. Вот и все проблемы!

———————

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Только что вернулся от заказчика….
прошу извинить за долгое молчание

и так
тип файла
My_File:TextFile
т.е. текстовой

Директивы компилятора {$I} позволяют отлавливать Error Code
2: Файл не найден
3: Неверное имя
4: Слишком много открытых файлов
5: Файл не доступен
100: Достигнут конец файла (EOF)
101: диск переполне
106: ошибка ввода

105 относится к расширенной таблице ошибок

Если этот код запустить, и файл ‘c:myfile.txt’ существует, то получим эту самую ошибку 105. Почему? До потому что reset не открывает текстовые файлы на запись! только на чтение. Для записи текстовый файл должен быть открыт только rewrite или append. Вот и все проблемы!

спасибо VIT
большое
но насчет очевидности

я к примеру не знал этого ….
хотя стаж еше с TP4
еще раз большое спасибо

У меня опыт больше! Я с TP3

———————

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

———————

Think different ©Steve Jobs 

Извени Vit, нехотел тебя обидеть, до меня и до самого сразу недошло что от типа многое зависит, покрайней мере в данном случае…
Просто мне обычно когда требется избавится от ошибок в/выв, то на ум всегда первое что приходит ─ отключение на их проверку, а дальше что-нибудь ещё предумывать приходится…
Ещё раз, извени…

Это сообщение отредактировал(а) Zero — 17.12.2004, 23:35

Не страшно, сам такие ляпы делаю систематически

———————

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Извините, что вcтреваю, но зачем Assign?

tf: TextFile;

{$I-}
Reset(tf,’C:temp.out’);
{$I+}
If IOResult <> 0
then // Не открыт
else // Открыт

Rewrite — то же самое. Аррend’у почему-то нужен assign.

P.S. Всегда был в этом уверен, только что полез в справку и не нашел упоминаний об этом. Но работает еще с ТР: у меня даже в шаблон это забито

P.P.S.
Кстати, try..except эти функции не ловятся. Только через IOResult. Очень уж они старые. Хотя, не исключено, что их переписали «на новый лад».

Это сообщение отредактировал(а) кварк — 20.12.2004, 14:35