Считывание файла со второй строки (delphi) - Помощь студентам - Страница 2

vovk · 12.01.2011, 20:48

просто считать строку

Код:

 readln(f)

стринглист это просто список

как работать смотрим пост №2

CAMOBAP · 12.01.2011, 20:51

спасибо .сейчас попробую и отпишусь вышло ли.

vovk · 12.01.2011, 20:54

хорошо, я пока тут.

CAMOBAP · 12.01.2011, 21:53

не получается . ругается i/o error 6

Цитата:

procedure TForm2.sButton1Click(Sender: TObject);
begin
if (c=false) then
begin
AssignFile(F,fName);
Reset(F);
Readln(F);
Readln(F,NV);
Readln(F,V);
Readln(F,O1);
Readln(F,O2);
Readln(F,O3);
Readln(F,O4);
Readln(F,N);
c:=true;
end;
if (sRadioButton1.Checked=true) and (N=1) then oc:=oc+1;
if (sRadioButton2.Checked=true) and (N=2) then oc:=oc+1;
if (sRadioButton3.Checked=true) and (N=3) then oc:=oc+1;
if (sRadioButton4.Checked=true) and (N=4) then oc:=oc+1;
Form3.sLabel2.Caption := 'Правильных ответов: ' + inttostr(OC) + ' из ' + inttostr(KV);
Form3.sLabel3.Caption := 'Оценка: ' + inttostr(OC);
Readln(F);
Readln(NV);
Readln(F,V);
Readln(F,O1);
Readln(F,O2);
Readln(F,O3);
Readln(F,O4);
Readln(F,N);
Form2.sLabel1.Caption := V;
Form2.sRadioButton1.Caption := O1;
Form2.sRadioButton2.Caption := O2;
Form2.sRadioButton3.Caption := O3;
Form2.sRadioButton4.Caption := O4;
if NV=KV then
Begin
sButton1.Caption:='Çàêîí÷èòü Òåñò';
Form3.Show;
Form2.Hide;
end;
end;

vovk · 12.01.2011, 22:09

Цитата:

Сообщение от CAMOBAP

не получается .

Код:

procedure TForm2.sButton1Click(Sender: TObject);
begin
if (c=false) then
begin
AssignFile(F,fName);
Reset(F);
Readln(F);
Readln(F,NV);
Readln(F,V);
Readln(F,O1);
Readln(F,O2);
Readln(F,O3);
Readln(F,O4);
Readln(F,N);
c:=true;
end;
if (sRadioButton1.Checked=true) and (N=1) then oc:=oc+1;
if (sRadioButton2.Checked=true) and (N=2) then oc:=oc+1;
if (sRadioButton3.Checked=true) and (N=3) then oc:=oc+1;
if (sRadioButton4.Checked=true) and (N=4) then oc:=oc+1;
Form3.sLabel2.Caption := 'Правильных ответов: ' + inttostr(OC) + ' из ' + inttostr(KV);
Form3.sLabel3.Caption := 'Оценка: ' + inttostr(OC);
Readln(F);
Readln(NV);
Readln(F,V);
Readln(F,O1);
Readln(F,O2);
Readln(F,O3);
Readln(F,O4);
Readln(F,N);
Form2.sLabel1.Caption := V;
Form2.sRadioButton1.Caption := O1;
Form2.sRadioButton2.Caption := O2;
Form2.sRadioButton3.Caption := O3;
Form2.sRadioButton4.Caption := O4;
if NV=KV then
Begin
sButton1.Caption:='Çàêîí÷èòü Òåñò';
Form3.Show;
Form2.Hide;
end;
end;

ругается i/o error 6

кстати выделяйте пожалуйста код тегом CODE значок #, а не цитатой

по поводу ошибки красным цветом в коде

CAMOBAP · 12.01.2011, 22:17

Извините. В дальнейшем исправлюсь . Чем может быть вызвана ошибка?

vovk · 12.01.2011, 22:19

ошибка тут Readln(NV);, я же выделил))
не Readln(NV); а Readln(F,NV);

CAMOBAP · 12.01.2011, 22:40

точно, глупая ошибка....спасибо, работает)
возникла другая проблема.в первой форме у меня считывает количество вопросов

Код:

AssignFile(F,fName);
Reset(F);
Readln(F,KV);
Readln(F,NV);
Readln(F,V);
Readln(F,O1);
Readln(F,O2);
Readln(F,O3);
Readln(F,O4);
Readln(F,N);
Form2.sLabel1.Caption := V;
Form2.sRadioButton1.Caption := O1;
Form2.sRadioButton2.Caption := O2;
Form2.sRadioButton3.Caption := O3;
Form2.sRadioButton4.Caption := O4;
closefile(f);

во второй эта строка заменяется на пустую

Код:

if (c=false) then
begin
AssignFile(F,fName);
Reset(F);
Readln(F);
Readln(F,NV);
Readln(F,V);
Readln(F,O1);
Readln(F,O2);
Readln(F,O3);
Readln(F,O4);
Readln(F,N);
c:=true;
end;
if (sRadioButton1.Checked=true) and (N=1) then oc:=oc+1;
if (sRadioButton2.Checked=true) and (N=2) then oc:=oc+1;
if (sRadioButton3.Checked=true) and (N=3) then oc:=oc+1;
if (sRadioButton4.Checked=true) and (N=4) then oc:=oc+1;
Form3.sLabel2.Caption := 'Ïðàâèëüíûõ îòâåòîâ: ' + inttostr(OC) + ' èç ' + inttostr(KV);
Form3.sLabel3.Caption := 'Îöåíêà: ' + inttostr(OC);
Readln(F);
Readln(F,NV);
Readln(F,V);
Readln(F,O1);
Readln(F,O2);
Readln(F,O3);
Readln(F,O4);
Readln(F,N);
Form2.sLabel1.Caption := V;
Form2.sRadioButton1.Caption := O1;
Form2.sRadioButton2.Caption := O2;
Form2.sRadioButton3.Caption := O3;
Form2.sRadioButton4.Caption := O4;
if KV=NV then
Begin
sButton1.Caption:='Закончить тест';
Form3.Show;
Form2.Hide;
end;

в конце второй формы сравнивается количество вопросов и номер вопроса. Если они равны, то открывается новая форма.но цикл не работает.программа продолжает выводить в формы вопросы.как поправить?

vovk · 12.01.2011, 22:48

я просто никак немогу понять общую логику, вы один и тот же файл постоянно читаете? Или это разные файлы по 8 строк?

CAMOBAP · 12.01.2011, 23:04

один и тот же. проблему исправил. были ошибки в файле. Теперь все отлично работает) спасибо)

12.01.2011, 20:48	#11
vovk != Участник клуба Регистрация: 08.09.2008 Сообщений: 1,751	просто считать строку Код: `readln(f)` стринглист это просто список как работать смотрим пост №2

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
считывание с файла	G.I.JOE	Общие вопросы C/C++	2	06.06.2010 09:18
Delphi считывание матрицы из файла	Remlin	Помощь студентам	1	03.05.2009 13:16
считать из файла две строки, вывести на экран символы первой строки, которые отсутствуют во второй	gotex	Помощь студентам	4	08.05.2008 02:27
как вывести строку поочередно сначала первая буква первой строки потом первая буква второй строки и т.д.	vitalik007	Помощь студентам	1	25.09.2007 20:45
Считывание строки из файла до символа	Stormzcooler	Общие вопросы Delphi	7	18.12.2006 15:01

12.01.2011, 20:51	#12
CAMOBAP Форумчанин Регистрация: 07.12.2010 Сообщений: 115	спасибо .сейчас попробую и отпишусь вышло ли.

12.01.2011, 20:54	#13
vovk != Участник клуба Регистрация: 08.09.2008 Сообщений: 1,751	хорошо, я пока тут.

12.01.2011, 22:17	#16
CAMOBAP Форумчанин Регистрация: 07.12.2010 Сообщений: 115	Извините. В дальнейшем исправлюсь . Чем может быть вызвана ошибка?

12.01.2011, 22:19	#17
vovk != Участник клуба Регистрация: 08.09.2008 Сообщений: 1,751	ошибка тут Readln(NV);, я же выделил)) не Readln(NV); а Readln(F,NV);

12.01.2011, 22:48	#19
vovk != Участник клуба Регистрация: 08.09.2008 Сообщений: 1,751	я просто никак немогу понять общую логику, вы один и тот же файл постоянно читаете? Или это разные файлы по 8 строк?

12.01.2011, 23:04	#20
CAMOBAP Форумчанин Регистрация: 07.12.2010 Сообщений: 115	один и тот же. проблему исправил. были ошибки в файле. Теперь все отлично работает) спасибо)