Форум: "Основная";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];
ВнизОткрытие файла Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c