[Delphi] Присвоеие элементос из одного массива другому.

[IvaN9900]

В общем надо чтобы значения из 1 массива больше 180 выводились во второй массив, вот написал кое-что, но при выполнении програмы после заполнения 1 массива вылетает "'' is not a valid integer value". в чем ошибка?

procedure TForm3.btn2Click(Sender: TObject);
var
  i:Integer;
begin
  strngrd1.ColCount:=(lst1.ItemIndex+1)*5;
  Randomize;
  for i:=0 to strngrd1.ColCount-1 do begin
  strngrd1.Cells[i,0]:= IntToStr(160+Random(41));
  end;
  if StrToInt(strngrd1.Cells[i,0])>179 then
  strngrd2.Cells[i,0]:=strngrd1.Cells[i,0];
end;

end.

[reserv]

Получается, что у тебя в цикле заполняется первый массив. Но сравнение тоже должно идти в цикле. То есть как-то так:

procedure TForm3.btn2Click(Sender: TObject);
var
  i,j:Integer;
begin
  strngrd1.ColCount:=(lst1.ItemIndex+1)*5;
  j:=0;
  Randomize;
  for i:=0 to strngrd1.ColCount-1 do begin
  strngrd1.Cells[i,0]:= IntToStr(160+Random(41));
  if StrToInt(strngrd1.Cells[i,0])>179 then
  begin
    strngrd2.Cells[j,0]:=strngrd1.Cells[i,0];
    j:=j+1;
  end;
  end; 
end;

[IvaN9900]

Спасибо, помогло. такая мелочь, а результат..