Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2004.03.09;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Потрепаться";
Текущий архив: 2004.03.09;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.012 c
6-25838
Shagrath
2004-01-03 14:20
2004.03.09
TServerSocket TClientSocket в Delphi7


7-25952
Phantom
2003-12-21 20:40
2004.03.09
Как получить информацию о приложении


14-25876
Creator
2004-02-17 13:51
2004.03.09
Handle


1-25767
Alexis
2004-02-26 15:27
2004.03.09
Win элементы в Turbo Pascal и Free Pascal


4-25963
B
2004-01-01 15:47
2004.03.09
Ярлыки





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский