Скачать: CL | DM;

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

← →
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]

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

---

← →
Palladin ©   (2003-06-23 00:11) [9]

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


> anatolyk © (22.06.03 20:21)

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

---

← →
Johny B. ©   (2003-06-23 07:07) [10]

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

---

← →
Song ©   (2003-06-23 08:34) [11]

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.011 c