[i1uxa]

Здравствуйте. Скажите пожалуйста, как исправить ошибку 'is not valid integer value', вылетающую при работе программы? Как исправить?
Вот код на Delphi:

procedure TForm1.viborClick(Sender: TObject);
var
a,b,i,j:integer;
begin
j:=0;
for i := 1 to n+1 do vibor_1.table_3.Rows[i].Clear;
vibor_1.table_3.RowCount := 2;
viborka.Showmodal;

a:=StrToInt(viborka.table_2.Rows[1].Strings[1]); //мне кажется чтото с
b:=StrToInt(viborka.table_2.Rows[1].Strings[2]); //этими строками, но
// учили вроде делать так чтобы из таблицы перевести в целочисленный
// тип
for i:=1 to n do
begin
if (mstud[i].price>a)and(mstud[i].price<b) then
begin
j:=j+1;
sr[j]:=mstud[i];
end;
end;
for i:=1 to j do begin
vibor_1.table_3.RowCount := vibor_1.table_3.RowCount + 1;
vibor_1.table_3.Rows[i].Strings[0]:= IntToStr(i);
vibor_1.table_3.Rows[i].Strings[1]:= sr[i].name;
vibor_1.table_3.Rows[i].Strings[2]:= IntToStr(sr[i].kol);
vibor_1.table_3.Rows[i].Strings[3]:= sr[i].sovm;
vibor_1.table_3.Rows[i].Strings[4]:= sr[i].color;
vibor_1.table_3.Rows[i].Strings[5]:= IntToStr(sr[i].price);
vibor_1.table_3.Rows[i].Strings[6]:= sr[i].dop;
end;
end;

[Redstason]

Это значит, что в строках

Код:

a:=StrToInt(viborka.table_2.Rows[1].Strings[1]); //мне кажется чтото с 
b:=StrToInt(viborka.table_2.Rows[1].Strings[2]); //этими строками, но 

значение либо
viborka.table_2.Rows[1].Strings[1]);
viborka.table_2.Rows[1].Strings[2]);
не являются целыми числами. А исправить - найти в какой именно.

[4kusNick]

Возможно там просто пусто, соответсвенно делфя не сможет пустоту сконверить в Integer, проверь, какие значения в этих строках у тебя.

[i1uxa]

Спасибо, я всеравно не нашел где ошибся и сделал через edit

[Azlk90]

Доброго времени суток. Возникла проблема - пишет "is not integer value"
Не могу понять почему StrigGrid не видит значение.

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,n,det,e:integer; // значение размерности , детерминант
a:string[255]; // переменная для сообщения
begin
det:=0; // начальное значение матрицы
n:=StrToInt(Form1.Edit1.Text); // получение порядка матрицы
for i:=0 to n do
for j:=0 to n do
begin
if StringGrid1.Cells[i,j]<>'' then // если что-то есть то меняет
begin
if n=1 then // порядок матрицы 1 то
begin
det:=StrToInt(StringGrid1.Cells[i,j]);;
end;
end
else // в противном случае заменяем пробел на ноль
begin
StringGrid1.Cells[i,j]:='0';
if n=1 then // порядок матрицы 1 то
begin
det:=StrToInt(StringGrid1.Cells[i,j]);
end;
end;
end;
a:='порядок матрицы: ';
label1.Caption:=a + IntToStr(n) + #13 +'значение детерменанта: ' + IntToStr(det); // вывести значение

Заранее благодарен.