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

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

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

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