Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ошибка ввода/вывода при записи в текстовый файл [D6, XP]


Страницы:   1 2

Vpp ©   (2007-05-23 16:09:00) 

Задача: дописывать в текстовый файл при необходимости текст. Для этого сделал такую функцию:

procedure TMainForm.Work;
var
 LogFile: TextFile;
begin
 AssignFile(LogFile,ExtractFilePath(ParamStr(0))+'repair.log');
 Reset(LogFile);

 WriteLn(LogFile,'Тест');

 CloseFile(LogFile);
end;

I/O error 105 выдает на команде WriteLn и ничего в файл записывать не хочет. Файл repair.log существует и находится в одном каталоге с exe-файлом программы.

Уважаемые мастера, подскажите пожалуйста, в чем моя ошибка?


Просто_новичок   (2007-05-23 16:16:00) [21]

Подскажите плиз, а что такое ExtractFilePath(ParamStr(0))?


ANB   (2007-05-23 16:16:00) [22]


> Reset(LogFile);

в этом. См. Append а лучше пользуйся системными функциями.


iXT   (2007-05-23 16:15:00) [23]

И правильно делает :) Надо посмотреть справку по разделу работы с файлами
P.S. reset+F1


Elen   (2007-05-23 16:14:00) [24]

надо не reset а append. И вообще можно файл не закрывать пока прога не закроется.


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо