крытие файлов

← →
TAN (2003-01-05 12:36) [0]

Читаю текстовый файл

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

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

← →
mrcat © (2003-01-05 12:43) [1]

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.

← →
F1 © (2003-01-05 12:50) [2]

Append-добавление или Rewrite-пересоздание делай

← →
Song © (2003-01-05 12:50) [3]

Для того чтобы записать надо ReWrite()

← →
TAN (2003-01-05 12:56) [4]

Блин извиняюсь ReWrite() я естественно делаю т е так вот
но ошибка остается
AssignFile(filo, "mbcl.ini");
Rewrite(filo1);
writeln(filo,"DriverName=MySQL");
CloseFile(filo);

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

← →
mrcat © (2003-01-05 12:57) [5]

TAN (05.01.03 12:56)
Rewrite( filo1);

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

← →
Song © (2003-01-05 12:58) [6]

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

← →
F1 © (2003-01-05 13:01) [7]

Давай весь код, включая AssignFile и CloseFile!!!

← →
DJ_Sedoy © (2003-01-05 13:04) [8]

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

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

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

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

← →
Song © (2003-01-05 13:07) [9]

Ну это ты так думаешь..

← →
TAN (2003-01-05 15:02) [10]

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);

>TAN
Всё это очень подозрительно:), в смысле : а TIniFile чем плох ?

← →
TAN (2003-01-05 15:07) [12]

мне надо будет строчку в файл шифровать, а потом расшифровывать на вывод

Ну и кто мешает?

>TAN
Перекрой WriteString и ReadString и шифруй на здоровье...

крытие файлов Найти похожие ветки