пишу так

← →
RealRascal © (2004-02-15 10:07) [0]

try Assignfile(tf, form1.Edit2.text); Rewrite(tf); Write(tf, temp);//проверил - temp не пустой(Run-time) Closefile(tf); except showmessage("Error"); Exit; end;
Ошибок не возникает, но файл пустой(0 байт). Пробовал writeln - аналогично. В чем косяк?

← →
RealRascal © (2004-02-15 10:31) [1]

я даже вместо temp писал "пример" и то файл пуст оказался. В чем прикол?
Я проверил, он создается.

← →
RealRascal © (2004-02-15 10:39) [2]

Все. На другом компе все ок. Это все из-за винта. Винт подыхает видимо( он один из этих несчастных Fujitsu серии MPG). Не понятно, только, почему, например, "блокнот" все сохраняет, а writeln - нет...

← →
Юрий Зотов © (2004-02-15 15:38) [3]

Flush не пробовали?

Да, пробовал. Хотя и closefile должно быть достаточно.
Видимо, Writeln как-то по другому записывает на диск...(звучит, конечно, глупо:-))
Я сделал memo1.lines.savetofile - и сохранилось все. Винт на ладан дышит - индикатор уже горит не переставая, конец его близок. Каждая перезагрузка может быть последней. Винты этой серии обречены - заводской брак. А эта странность - просто очередной симптом. Я перенес exe на другой комп - так там все сохраняет и с пом. writeln.

пишу так Найти похожие ветки