 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
На счет файлов... 
| Spawn |
|
|||
|
Unregistered |
У меня почему то при сохранении в файл(текстовый), сохраняется лишь часть вводимой информации!
AssignFile(f,'c:\Mac.txt'); {$I-} Rewrite(f); {SI+} if IOResult<>0 then begin for i:=0 to n do writeln(f,Form1.Memo1.Lines[i]); end; при этом записывается лишь начальные 9 строк из Memo1, а остальные почемуто не пишет(.Помогите плз разобраться. |
|||
|
||||
Загрузка ...
| Song |
|
|||
 Sysman.ru  Профиль Группа: Участник Сообщений: 1095 Регистрация: 2.6.2002 Репутация: 2 Всего: 4 |
 А TMemo.SaveToFile() не подойдёт :-) -------------------- Прежде чем сказать "Невозможно", подумай, прав ли ты |
|||
|
||||
| Spawn |
|
|||
|
Unregistered |
Дело в том,что в файл мне нужно сохранить не только данные, но и кое что еще!!!Даже если я сохраняю в файл при помощи SaveToFile, а потом открываю файл для добавления при помощи Append, то обычным writeln в файл ни чего не дописывается!! |
|||
|
||||
| Vit |
|
|||
 Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
А место на диске есть?
А файл не больше 2Gb? А что происходит - просто не пишет, или выдает какую ошибку? А может там просто кэшируется запись? А что ты пишешь? Там не может попасться служебные символы? А строки которые ты пишешь случайно не могут оказаться длинее 255 символов? В последнем случае надо писать так: writeln(f, pointer(s)^); Иначе у тебя вместо строки запишется 4 байта - указатель на строку. -------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Song |
|
|||
|
Sysman.ru Профиль Группа: Участник Сообщений: 1095 Регистрация: 2.6.2002 Репутация: 2 Всего: 4 |
Как это не дописывается? А какой тип переменной f ? -------------------- Прежде чем сказать "Невозможно", подумай, прав ли ты |
|||
|
||||
1]| Song |
|
|||
|
Sysman.ru Профиль Группа: Участник Сообщений: 1095 Регистрация: 2.6.2002 Репутация: 2 Всего: 4 |
>> Иначе у тебя вместо строки запишется 4 байта - указатель на строку.
Вы не правы. Компилятор право не дурак -------------------- Прежде чем сказать "Невозможно", подумай, прав ли ты |
|||
|
||||
| RA |
|
|||
 Брутальный буратина Профиль Группа: Участник Клуба Сообщений: 3497 Регистрация: 31.3.2002 Где: Лес Репутация: 14 Всего: 115 |
А чему равно значение "n" ?
|
|||
|
||||
| Vit |
|
|||
|
Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
Вы знаете, готов был бы согласится, если бы года 3 назад не столкунулся с этой ситуацией лично, и мне пришлось переделывать штук 40 модулей из-за этого (это была связка Delphi3/Windows95), с тех пор много воды утекло, но воспоминания остались... -------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Song |
|
|||
|
Sysman.ru Профиль Группа: Участник Сообщений: 1095 Регистрация: 2.6.2002 Репутация: 2 Всего: 4 |
В Д3 соглашусь.
С совремменныж настолько компилятор всё любит выбрасывать... Иногда до смешного выходит. Например Var t,n:Extended; t:=5; n:=0; ShowMessage(FloatToStr(t/n)); Думаете будет AV c EMathError ? Хрен, всё подсчитано будет на этапе компиляции и в боксе Вы увидите INF -------------------- Прежде чем сказать "Невозможно", подумай, прав ли ты |
|||
|
||||
| Spawn |
|
|||
|
Unregistered |
Спасибо за помощь
 Я нашел свою ошибку) |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0517 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |