Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
1 / 1 / 1
Регистрация: 12.11.2014
Сообщений: 29
1

Ошибка при работе с файлом

29.05.2015, 17:56. Показов 715. Ответов 4
Метки нет (Все метки)

Собственно при обработке процедуры, появляется ошибка: I/O error 103
Отладчик выделяет шестую строку с условием.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var t1:textfile;
begin
AssignFile(t1,'Data/1.dat');
if FileExists('Data/1.dat')<>true then
rewrite(t1);
if (filesize(t1)=0) and (edit1.Text='') then
begin
reset(t1);
write(t1,x);
end
else
if (filesize(t1)<>0) and (edit1.Text<>'') then
begin
rewrite(t1);
write(t1,edit1.Text);
end
else
if (filesize(t1)=0) and (edit1.Text<>'') then
begin
reset(t1);
write(t1,edit1.Text);
end;
CloseFile(t1);
end;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.05.2015, 17:56
Ответы с готовыми решениями:

Ошибка при работе с файлом, чтение запись
выдает ошибку при работе с файлом F (test.txt) в разделе //Функция расшифровки я дерево, так что...

Ошибка: access violation при работе с ini файлом
есть 2 формы. на одной форме создаю ini-файл, сохраняю туда логин пароль, а на другой форме для...

Ошибка ввода-вывода 103 при работе с текстовым файлом
При использовании статичного имени внешнего файла, к примеру &quot;test0&quot;, код работает, файл создаётся...

Пропадает кнопка при работе с файлом
Всем доброго времени суток! У меня случилась такая проблема, при работе непосредственно с готовым...

4
Native x86
Эксперт Hardware
4796 / 2717 / 794
Регистрация: 13.02.2013
Сообщений: 8,822
29.05.2015, 18:20 2
FileSize неприменим к TextFile.
0
1 / 1 / 1
Регистрация: 12.11.2014
Сообщений: 29
29.05.2015, 19:43  [ТС] 3
Пошел немножко другим путем через eof
Но теперь ошибка при записи в файл, обработка строчки с (writeln):
EInOutError with message 'I/O error 105'.
Delphi
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
var t1:textfile;
t:integer;
begin
if edit1.Text ='' then
t:=x div 7
else
t:=strtoint(edit1.Text);
AssignFile(t1,'Data/1.dat');
if FileExists('Data/1.dat')<>true then
rewrite(t1);
reset(t1);
if (eof(t1)) and (edit1.Text='') then
begin
writeln(t1,t);
end
else
if (not eof(t1)) and (edit1.Text<>'') then
begin
rewrite(t1);
writeln(t1,t);
end
else
if (eof(t1)) and (edit1.Text<>'') then
begin
write(t1,t);
end;
CloseFile(t1);
0
пофигист широкого профиля
4408 / 2903 / 823
Регистрация: 15.07.2013
Сообщений: 16,756
29.05.2015, 19:53 4
Цитата Сообщение от Wirtal Посмотреть сообщение
Пошел немножко другим путем
Что это за мешанина из rewrite'ов и reset'ов? Что ты сделать то хочешь?
0
1 / 1 / 1
Регистрация: 12.11.2014
Сообщений: 29
29.05.2015, 20:41  [ТС] 5
В общем суть этого модуля: если текстовое поле и файл пустые то запишем туда переменную t. Если файл уже содержит число и текстовое поле пусто то закрывает файл. Если же файл и поле содержат значения то перезаписываем файл новым значением.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.05.2015, 20:41

Помощь в написании контрольных, курсовых и дипломных работ здесь.

access violation при работе с ini файлом
Здравствуйте. Такой вопрос. Есть 2 формы. Главная и форма с настройками программы. В форму...

Переезд проекта из delphi7 в xe5 / ошибка при работе с бинарным файлом
Доброго времени суток. Недавно переехал с семёрки на xe5, перенёс проект и... он вешается....

Ошибка при работе с ComboBox при использовании FindComponent
Есть комбобокс, список в него загружается из стринггрида. Потом по выбранному значению в комбобоксе...

Ошибка при работе с If
Добрый день, помогите разобраться с If, есть процедура нажатия кнопки, при которой происходит...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.