Открытие файла

← →
Checist [root] (2003-06-22 20:12) [0]

FileCreate(Edit1.Text);
AssignFile(S,Edit1.Text);
Reset(S);
Write(S,"www");
CloseFile(S);

Тут я создаю файл с именем указанным в Edit1, связываю его с переменной S типа Text (текстовый файл), далее пытаюся открать его для записи туда строки "www", но вылетает ошибка 32. Чем и как лучше создавать и после открывать файлы для записи в них текста?

← →
PaRL. (2003-06-22 20:19) [1]

Естесственно. Ты открываешь файл для чтения, а пытаешься в него записать.

var F : TextFile;
S : string;
begin
AssignFile(F, Edit1.Text);
Rewrite(F);
Writeln(F, "www");
CloseFile(F); //записали
Reset(F);
Readln(F, S); //s = "www" прочитали
CloseFIle(F);
end;

← →
anatolyk © (2003-06-22 20:21) [2]

Так должно работать наверняка. А FileCreate тут, по-моему не нужен.
AssignFile(S, Edit1.Text);
ReWrite(S);
Write(S,"www");
Flush(S);
CloseFile(S);

← →
Checist [root] (2003-06-22 20:25) [3]

Спасибо, вроде прет

← →
Checist [root] (2003-06-22 20:28) [4]

Хм, как это не нужен, я же сначала файл создаю, а потом в его вписываю строку!

← →
[BAD]Angel © (2003-06-22 20:30) [5]

сам ReWrite создает файл, если его нет

← →
anatolyk © (2003-06-22 20:35) [6]

Удалено модератором

← →
[BAD]Angel © (2003-06-22 20:39) [7]

Удалено модератором

← →
Anatoly Podgoretsky © (2003-06-22 23:20) [8]

Ты два раза открываешь файл.

FileCreate(Edit1.Text); // раз открыл
AssignFile(S,Edit1.Text);
Reset(S); // два открыл, зачем?
Write(S,"www");
CloseFile(S);

> anatolyk © (22.06.03 20:21)

а если надо дописать? тоже ReWrite?

If FileExists() then Reset() else Rewrite()
права доступа только на чтение или только на запись - у FileStream.

2Johny B. © (23.06.03 07:07)
...
{$I-}
Reset()
IF IOresult<>0 then ReWrite()
{$I+}

Развели из ерундовой темы такую бадягу..

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