|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.05.2012, 14:00 | #1 |
Пользователь
Регистрация: 17.05.2012
Сообщений: 13
|
error 100: disk read error
Здравствуйте, мне нужно изменить данную процедуру.
Код:
наброски есть, но почему то вылазиет ошибка. помогите пожалуйста Код:
___________ Код нужно оформлять по правилам: тегом [CODE]..[/СODE] (это кнопочка с решёточкой #) Не забывайте об этом! Модератор. Последний раз редактировалось Serge_Bliznykov; 22.05.2012 в 14:23. |
22.05.2012, 14:26 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
если вам реально нужно использовать текстовый файл (меня расширение .dat немножко настораживает - не идёт ли здесь речь о типизированном файле), то рекомендую Вам заменить все write( FileCh, xxx) на WriteLn(FileCh, xxx)
ну и, соответственно, все Read( FileCh, xxx) на ReadLn( FileCh, xxx) в этом случае каждое число будет располагаться в отдельной строке текстового файла. p.s. ну и неплохо бы подумать о том, как защить свою программу от отстуствия нужных данных (например, если конец файла встретится раньше, чем будут прочитаны все Max_Value * Max_Value значения! можно, например, в цикле проверять if Eof( FileCh) then begin ВыдатьОШибку; ПрерватьПрограмму; end; Последний раз редактировалось Serge_Bliznykov; 22.05.2012 в 14:29. |
22.05.2012, 14:43 | #3 | |
Пользователь
Регистрация: 17.05.2012
Сообщений: 13
|
в том то и дело, файл типизированный.
при изменении read и write, получилась еще одна ошибка: invalid file type. Цитата:
|
|
22.05.2012, 14:57 | #4 | ||
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Цитата:
описывайте файл, например, так: Код:
|
||
22.05.2012, 15:05 | #5 |
Пользователь
Регистрация: 17.05.2012
Сообщений: 13
|
да, у меня в начале программы это было уже, ну да ладно. ошибка 100 не как не убирается
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
A disk read error ocured. | Deniko | Компьютерное железо | 0 | 16.02.2012 14:50 |
disk read error при чтении из типизированного файла | Firstchar | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 02.02.2012 12:24 |
Turbo Pascal - при чтении типизированного файла #100 Disk read error | triple A | Помощь студентам | 9 | 16.05.2011 22:38 |
CreateBlobStream - error read stream | ANsy | БД в Delphi | 3 | 04.10.2010 09:23 |
Ошибка: Disk read error | freewix | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 06.06.2010 09:23 |