Проблемы с операторами

[SW00001]

Помогите кто знает есть код для расчётаки 4-ок и 5-ок, вроди всё написано правельно, но почемуто код не воспринимает 4-ки, если введены все 5-ки ну например 25 пятёрок (25*100/25) = 100%, а когда введены 4-ки получается что он их не считает и получается 0%, хотя он должен считать как 4-ки так и 5-ки и прибавлять их к переменной "а", но прибавляет только 5-ки.

procedure TForm1.Button1Click(Sender: TObject);
var a,c :integer;
w:Extended;
begin
a:=0;
 if StrToInt(Edit31.Text)=4 or 5 then a:=a+1;
 if StrToInt(edit32.text)=4 or 5 then a:=a+1;
 if StrToInt(edit33.text)=4 or 5 then a:=a+1;
 if StrToInt(Edit34.Text)=4 or 5 then a:=a+1;
 if StrToInt(edit35.text)=4 or 5 then a:=a+1;
 if StrToInt(edit36.text)=4 or 5 then a:=a+1;
 if StrToInt(Edit37.Text)=4 or 5 then a:=a+1;
 if StrToInt(edit38.text)=4 or 5 then a:=a+1;
 if StrToInt(edit39.text)=4 or 5 then a:=a+1;
 if StrToInt(Edit40.Text)=4 or 5 then a:=a+1;
 if StrToInt(edit41.text)=4 or 5 then a:=a+1;
 if StrToInt(edit42.text)=4 or 5 then a:=a+1;
 if StrToInt(Edit43.Text)=4 or 5 then a:=a+1;
 if StrToInt(edit44.text)=4 or 5 then a:=a+1;
 if StrToInt(edit45.text)=4 or 5 then a:=a+1;
 if StrToInt(Edit46.Text)=4 or 5 then a:=a+1;
 if StrToInt(edit47.text)=4 or 5 then a:=a+1;
 if StrToInt(edit48.text)=4 or 5 then a:=a+1;
 if StrToInt(Edit49.Text)=4 or 5 then a:=a+1;
 if StrToInt(edit50.text)=4 or 5 then a:=a+1;
 if StrToInt(edit51.text)=4 or 5 then a:=a+1;
 if StrToInt(Edit52.Text)=4 or 5 then a:=a+1;
 if StrToInt(edit53.text)=4 or 5 then a:=a+1;
 if StrToInt(edit54.text)=4 or 5 then a:=a+1;
 if StrToInt(edit55.text)=4 or 5 then a:=a+1;
 c:=StrToInt(edit781.text);
 w:=((a*100)/c);
 label3.Caption:=FloatToStr (W);
end;
end.

[Stilet]

if StrToInt(Edit31.Text) in [4,5] then a:=a+1;

Так подходит?

[SW00001]

Да, спасибо подошло)

[SW00001]

А что нужно прописать чтобы было так: если edit пустой то просто неучитывать это значение, чтобы не выдавалась ошибка. А то у меня когда не вводишь цифру в эдит(остаётся пустой) то сразу выдаёт ошибку.
подскажите пожалуйсто

[Stilet]

StrToIntDef использовать

[SW00001]

т.е. вместо if StrToInt(Edit31.Text)=4 or 5 then a:=a+1; вставить StrToIntDef ?

[Stilet]

Не просто вставить а вдумчиво изучить в хелпе эту функцию и примеры с ней

[Develop]

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

А что нужно прописать чтобы было так: если edit пустой то просто неучитывать это значение, чтобы не выдавалась ошибка. А то у меня когда не вводишь цифру в эдит(остаётся пустой) то сразу выдаёт ошибку.
подскажите пожалуйсто

Можно же проверить строку перед конвертацией:

if Trim(text) <> '' then ***

или сделать обработку исключения:

try *** Except on EConvertError do ... ; end;

или есть еще такое:

function TryStrToInt(const S: string; out Value: Integer): Boolean;