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

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

← →
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 не пробовали?

---

← →
RealRascal ©   (2004-02-15 16:09) [4]

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

---

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

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



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