Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

крытие файлов [D6, WinXP]

TAN © (2003-01-05 12:36:00)
Читаю текстовый файл

AssignFile(filo, "mbcl.ini");
Reset(filo);
Readln(filo,s);
CloseFile(filo);

после того как я пытаюсь туда чего нибудь записать

AssignFile(filo, "mbcl.ini");
Reset(filo);
writeln(filo,"DriverName=MySQL");
CloseFile(filo);

Выдаётся ошибка I/O error 32

Подскажите плиз в чём дело и как с этим бороться?

Skier (2003-01-05 15:13:00) [1]
>TAN
Перекрой WriteString и ReadString и шифруй на здоровье...

Anatoly Podgoretsky (2003-01-05 15:12:00) [2]
Ну и кто мешает?

TAN (2003-01-05 15:07:00) [3]
мне надо будет строчку в файл шифровать, а потом расшифровывать на вывод

Skier (2003-01-05 15:04:00) [4]
>TAN
Всё это очень подозрительно:), в смысле : а TIniFile чем плох ?

TAN (2003-01-05 15:02:00) [5]
AssignFile(filo, "mbcl.ini");
Reset(filo);

Readln(filo);
Readln(filo,s);
i:=Length(s);
i1:=pos("=",s)+1;
Edit1.Text:=Copy(s,i1,i);
CloseFile(filo);

А это потом там и ошибку даёт
на Rewrite(filo);

AssignFile(filo, "mbcl.ini");

Rewrite(filo);
writeln(filo,"DriverName=MySQL");
writeln(filo, "HostName="+Edit1.text);
writeln(filo, "Database="+Edit2.text);
writeln(filo, "User_Name="+Edit3.text);
writeln(filo, "Password="+Edit4.text);
writeln(filo, "BlobSize=-1");
writeln(filo,"ErrorResourceFile=");
writeln(filo,"LocaleCode=0000");
CloseFile(filo);

Song (2003-01-05 13:07:00) [6]
Ну это ты так думаешь..

DJ_Sedoy (2003-01-05 13:04:00) [7]

> Это значит что filo раньше не был закрыт.

Корректен будет и такой код:

AssignFile(f, "xxx.xxx");
Reset(f);
Read(s);
Append(s);
Reset(f)
......
Close(f)

Его не надо обязательно Close(). Он сам его "ReClose"

F1 (2003-01-05 13:01:00) [8]
Давай весь код, включая AssignFile и CloseFile!!!

Song (2003-01-05 12:58:00) [9]
Это значит что filo раньше не был закрыт.

mrcat (2003-01-05 12:57:00) [10]
TAN (05.01.03 12:56)
Rewrite( filo1);

filo1 где связываете?

TAN (2003-01-05 12:56:00) [11]
Блин извиняюсь ReWrite() я естественно делаю т е так вот
но ошибка остается
AssignFile(filo, "mbcl.ini");
Rewrite(filo1);
writeln(filo,"DriverName=MySQL");
CloseFile(filo);

именно на rewrite и ругается

F1 (2003-01-05 12:50:00) [12]
Append-добавление или Rewrite-пересоздание делай

Song (2003-01-05 12:50:00) [13]
Для того чтобы записать надо ReWrite()

mrcat (2003-01-05 12:43:00) [14]
procedure Reset(var F [: File; RecSize: Word ] );

Description

...

If F is a text file, F becomes read-only.

Note: {$I+} handles run-time errors using exceptions. When using {$I-}, use IOResult to check for I/O errors.

Наверх

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