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

Почему то в файл текстовый не пишет ??   Найти похожие ветки 

← →
alexe   (2003-01-16 09:51) [0]

посмотрите плиз свежим взглядом - почему не пишет в файл строку??

procedure Tform.SaveMsg(Msg: string);
var
fmsg: TextFile;
begin
{$I-}
AssignFile(fmsg, sP + "msg.txt");
FileMode := fmOpenReadWrite;
Reset(fmsg);
write(fmsg,Msg);
// writeln(fmsg,Msg);
CloseFile(fmsg);
{$I+}
end;

---

← →
MBo ©   (2003-01-16 09:52) [1]

Не Reset,а Rewrite
FileMode не надо

---

← →
Smithson ©   (2003-01-16 10:05) [2]

Строго говоря, при Reset и FileMode тоже должно работать? Как именно
не пишет? Этот код не будет создавать новый файл, но будет писать в существующий.

---

← →
MBo ©   (2003-01-16 10:08) [3]

The FileMode variable determines the access mode to use when typed and untyped files (not text files) are opened using the Reset procedure.

---

← →
Poirot ©   (2003-01-16 10:11) [4]

что то мне не нравится наличие {$I} - убрав вы б получили что типа файл-то ненайден... хе-хе-хе
И вообще помоему нежелательно оставлять такие вещи без обработчика!!!

---

← →
Smithson ©   (2003-01-16 10:23) [5]

//MBo © (16.01.03 10:08)

Sorry, действительно, промахнулся.

---

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

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



Память: 0.45 MB
Время: 0.009 c