Stringgrid

[Китти]

Привет всем! Задачка довольно простая, но я не могу понять откуда появляется ошибка... Мне нужно из второго столбца stringgrida1 найти числа от 15 до 19, и вывести строки, в которых есть эти числа во второй стринггрид.

procedure TForm1.Button3Click(Sender: TObject);
var i,k:integer;
begin
k:=0;
for i:=1 to stringgrid1.RowCount-1 do

if strtoint(stringgrid1.cells[1,i])>=15 and
strtoint(stringgrid1.cells[1,i])<19)
then
begin
k:=k+1;
stringgrid2.cells[0,k]:=stringgrid1.Cells[0,i];
stringgrid2.cells[1,k]:=stringgrid1.Cells[1,i];
stringgrid2.cells[2,k]:=stringgrid1.Cells[2,i];
end ;
end;
В итоге, Программа выдает ошибку "...EConvertError with message ''' is not a valid integer value'." Помогите =)))))

[Kotofff]

Здесь :

if strtoint(stringgrid1.cells[1,i])>=15 and strtoint(stringgrid1.cells[1,i])<19)

Нужно добавить проверку на непустую ячейку.
Иначе программа запущенная под компилятором выдаст именно такую ошибку.

[Китти]

не очень поняла ответ... =) вы не могли пояснить, пожалуйста =))))

[Китти]

ХА, Заработало! Спасибо г-н Котофф! =))))

[psycho-coder]

На счет самого кода, можно это сделать так

procedure TForm1.Button3Click(Sender: TObject);
var i,k:integer;
begin
k:=0;
for i:=1 to stringgrid1.RowCount-1 do

if strtoint(stringgrid1.cells[1,i])>=15 and strtoint(stringgrid1.cells[1,i])<19)
  and StringGrid1.Cells[1, i] <> '' then
begin
  StringGrid2.Rows[k].SetText(StringGrid1.Rows[i].GetText);
  Inc(k);
end ;
end;