![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Ошибка ввода/вывода при записи в текстовый файл [D6, XP]
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. И вообще можно файл не закрывать пока прога не закроется.