Ошибка в проге :(

[Defender42]

Помогите найти ошибку в проге плиз , сегодня сдаю диплом а касяк остался. Прога не выводит балы и оценку.
КОД:

const
 nfile=4;//количество файлов с разными буквами

var
  Form4: TForm4;
  i:integer;//номер текущего вопроса
  word:string;//слово, букву в которое нужно вставить
  wordright:string;//правильный ответ на вопрос
  b:integer;//количество баллов, набранное участником
  price:integer;//стоимость одного правильного
                //ответа в баллах
  nA:integer;// количество слов c буквой А в файле
  nO:integer;// количество слов c буквой O в файле
  nU:integer;// количество слов c буквой И в файле
  nE:integer;// количество слов c буквой E в файле
  A,O,U,E:array of string;//массивы слов
  f1,f2,f3,f4:TextFile;//файловые переменные
  w:integer;
  wordp:string;//буква, введенная пользователем
  marks:integer;//оценка
implementation

uses Unit5;



{$R *.dfm}

procedure generate(var word:string;var wordright:string);
var
   nf,ns:integer;//номер файла и номер слова
begin
 nf:=random(nfile-1)+1;

 if nf=1
 then
 begin
  ns:=random(nA-1)+1;
  word:=A[ns];
  wordright:='а';
 end;

 if nf=2
 then
 begin
  ns:=random(nO-1)+1;
  word:=O[ns] ;
  wordright:='о';
 end;

 if nf=3
 then
 begin
  ns:=random(nU-1)+1;
  word:=U[ns];
  wordright:='и';
 end;

 if nf=4
 then
 begin
  ns:=random(nE-1)+1;
  word:=E[ns];
  wordright:='е';
 end;

end;

procedure TForm4.FormActivate(Sender: TObject);
var
   k:integer;
begin
 b:=0; //начальное количество баллов
 w:=1;
 AssignFile(number, 'num.txt');
 Reset(number);
 read(number,num);

 AssignFile(f1, 'А.txt');
 AssignFile(f2, 'О.txt');
 AssignFile(f3, 'И.txt');
 AssignFile(f4, 'Е.txt');

 Reset(f1);
 Reset(f2);
 Reset(f3);
 Reset(f4);

 //считаем количество слов в каждом файле
 read(f1,nA);
 read(f2,nO);
 read(f3,nU);
 read(f4,nE);

 setlength(A,nA+1);
 setlength(O,nO+1);
 setlength(U,nU+1);
 setlength(E,nE+1);

 //считываем слова
 readln(f1);
 readln(f2);
 readln(f3);
 readln(f4);

 for k:= 1 to nA do
 begin
  readln(f1,A[k]);
 end;

 for k:= 1 to nO do
 readln(f2,O[k]);

 for k:= 1 to nU do
 readln(f3,U[k]);

 for k:= 1 to nE do
 readln(f4,E[k]);

 label1.Caption:='Вопрос №'+ inttostr(w);
 generate(word,wordright);
 label2.caption:='Какая буква пишется в данном слове '+ word+'?';
 wordp:=form4.Edit1.Text;
 if wordp=wordright then  b:=b+1;

end;

procedure TForm4.Button1Click(Sender: TObject);
begin
  form4.edit1.text:=' ';
 if w<>num then
 begin
  w:=w+1;
  label1.Caption:='Вопрос №'+ inttostr(w);
  generate(word,wordright);
  label2.caption:='Какая буква пишется в данном слове '+ word+'?';
  wordp:=form4.Edit1.Text;
  if wordp=wordright  then  b:=b+1;
 end
 else
 begin
  form4.button1.Enabled:=false;
  form5.Show;
  if b>sc[1] then marks:=5;
  if (b>sc[2]) and (b<sc[1]) then marks:=4;
  if (b>sc[3]) and (b<sc[2]) and (b<sc[1]) then marks:=3;
  if (b<sc[3]) then marks:=2;
 end;


end;

end.

Заранее спасибо!

[Stilet]

Прога не выводит балы и оценку.

э-э-э-э... А куда откуда и где она это делать по твоей задумке должна?

[Defender42]

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

э-э-э-э... А куда откуда и где она это делать по твоей задумке должна?

выводить она будет на Form5

form5.Show;
  if b>sc[1] then marks:=5;
  if (b>sc[2]) and (b<sc[1]) then marks:=4;
  if (b>sc[3]) and (b<sc[2]) and (b<sc[1]) then marks:=3;
  if (b<sc[3]) then marks:=2;
 end;

Если в чем то я ошибся скажи плиз

[Stilet]

выводить она будет на Form5

Каким кодом??
Не вижу кода вывода куда-то.

[Defender42]

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

Каким кодом??
Не вижу кода вывода куда-то.

form5.Label1.Caption:='Вы набрали  '+inttostr(b)+' баллов';
 form5.Label2.Caption:='Ваша оценка  '+inttostr(marks);

если не это то я не в недоразумение

смысл подсчитывание балов правильный?
Как я понял ты думаешь ошибка при выводе балов и оценки. Если выводить через showmessage все ровно пишет 0. Мне кажется ошибка при проверке правильного ответа с введеным в эдит, вот тока как ее исправить незнаю

[Stilet]

 form5.Label1.Caption:='Вы набрали  '+inttostr( Form4.b)+' баллов';
 form5.Label2.Caption:='Ваша оценка  '+inttostr( Form4.marks);

только переменки эти перенеси в раздел Public определения Tform4

Впрочем ты в Form5 можешь подключить в uses юнит формы 4, но боюсь что и там и там у тя одинаковые имена.

[Defender42]

public
   b:integer;//количество баллов, набранное участником
   marks:integer;//оценка

form5.Label1.Caption:='Вы набрали  '+inttostr(Form4.b)+' баллов';
 form5.Label2.Caption:='Ваша оценка  '+inttostr(Form4.marks);

Сделал как ты сказал но все ровно выводит 0

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,unit1,unit2,unit3,unit4;

так и есть

[KORN]

так ты и без form можешь указывать переменные т.е. просто b и marks

[Stilet]

Сделал как ты сказал но все ровно выводит 0

Проверять нужно все. Перенеси form5.Show; за ИФы.

[VaBank]

Так а где у тебя стоит код???

form5.Label1.Caption:='Вы набрали  '+inttostr(b)+' баллов';
form5.Label2.Caption:='Ваша оценка  '+inttostr(marks);

его надо либо на OnShow ставить формы 5, либо сюда:

form5.Show;
  if b>sc[1] then marks:=5;
  if (b>sc[2]) and (b<sc[1]) then marks:=4;
  if (b>sc[3]) and (b<sc[2]) and (b<sc[1]) then marks:=3;
  if (b<sc[3]) then marks:=2;
  form5.Label1.Caption:='Вы набрали  '+inttostr(b)+' баллов';
  form5.Label2.Caption:='Ваша оценка  '+inttostr(marks);
 end;

по идее все должно работать