|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.03.2009, 15:01 | #1 |
Пользователь
Регистрация: 20.11.2008
Сообщений: 41
|
не пойму в чем ошибка
while true do
begin if a[d]=1 then begin while not eof(f) do begin e:=Application.ExeName+inttostr(a[i]); assignfile(f,e); reset(f); readln(f,s); memo1.Lines.Add(s); end; close(); //memo1.Lines.Clear; // memo1.Lines.LoadFromFile(ExtractFil ePath(Application.ExeName)+inttostr (a[i])+'.txt'); if edit1.Text='1' then prav_otvet:=prav_otvet+1 else ne_otvet:=ne_otvet+1; d:=d+1; break; end; if a[d]=2 then begin while not eof(f) do begin e:=Application.ExeName+inttostr(a[i]); assignfile(f,e); reset(f); readln(f,s); memo1.Lines.Add(s); end; //memo1.Lines.Clear; // memo1.Lines.LoadFromFile(ExtractFil ePath(Application.ExeName)+inttostr (a[i])+'.txt'); if edit1.Text='1' then prav_otvet:=prav_otvet+1 else ne_otvet:=ne_otvet+1; d:=d+1; break; end; if a[d]=3 then begin while not eof(f) do begin e:=Application.ExeName+inttostr(a[i]); assignfile(f,e); reset(f); readln(f,s); memo1.Lines.Add(s); end; //memo1.Lines.Clear; //memo1.Lines.LoadFromFile(ExtractFil ePath(Application.ExeName)+inttostr (a[i])+'.txt'); if edit1.Text='1' then prav_otvet:=prav_otvet+1 else ne_otvet:=ne_otvet+1; d:=d+1; break; end; if a[d]=4 then begin while not eof(f) do begin e:=Application.ExeName+inttostr(a[i]); assignfile(f,e); reset(f); readln(f,s); memo1.Lines.Add(s); end; //memo1.Lines.Clear; //memo1.Lines.LoadFromFile(ExtractFil ePath(Application.ExeName)+inttostr (a[i])+'.txt'); if edit1.Text='1' then prav_otvet:=prav_otvet+1 else ne_otvet:=ne_otvet+1; d:=d+1; break; end; говорит то что I/O error 104
подумайте сначало .... а потом отвечайте....
|
23.03.2009, 15:08 | #2 |
Пользователь
Регистрация: 20.11.2008
Сообщений: 41
|
while not eof(f) do зацикливается на етом
подумайте сначало .... а потом отвечайте....
|
23.03.2009, 15:09 | #3 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Странный ход:
Код:
|
23.03.2009, 15:53 | #4 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
ДЕлай так: Код:
I'm learning to live...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не пойму в чем ошибка | Machete | PHP | 2 | 08.12.2008 10:09 |
idSMTP не пойму где ошибка | JRcoker | Работа с сетью в Delphi | 5 | 07.10.2008 14:10 |
Определение уровня напряженности магнитного поля, не пойму где ошибка | neznayka2 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 24.08.2008 21:01 |
В чем дло с USB не пойму? | Ol'ga | Компьютерное железо | 3 | 26.06.2008 11:12 |
В чем ошибка!!! | juden | Общие вопросы Delphi | 12 | 10.03.2008 08:53 |