Вывод из стрингрида в мемо

[eva-2030]

Добрый день уважаемые форумчане. Помогите плиз с таким вопросом - как из стринггрида, заполненного вручную вывести в 2 мемо или лейбла отдельно отрицатне и положительные числа?

[Slippy]

for i := 0 to StringGrid.ColCount-1 do
begin
  for j := 0 to StringGrid.RowCount-1 do
  begin
    if (StrToInt(StringGrid.Cells[i, j]) > 0) then
      Memo1.Lines.Add(StringGrid.Cells[i, j])
    else
      Memo2.Lines.Add(StringGrid.Cells[i, j]);
  end;
end;

[eva-2030]

Спасибо большое, но, павильно выводятся почему-то только отрицательные числа, а вот положителные - только с последнего столбца.

[GetMax]

Попробуйте переделать так

 For i:=0 to StringGrid1.RowCount-1 do
  Begin
    For j:=0 to StringGrid1.ColCount-1 do
    If StrToInt(StringGrid1.Cells[j,i]) < 0 then Memo2.Lines.Add(StringGrid1.Cells[j,i])
    Else
    If StrToInt(StringGrid1.Cells[j,i]) >= 0 then Memo1.Lines.Add(StringGrid1.Cells[j,i])
  End;

[eva-2030]

Спасибо, заработало! А можно еще один вопросик... Как сделать чтобы в стринггриде при работе программы можно было редактровать шапку таблицы? Т.е. заносить в неё тоже цифры?

[ArtGrek]

в своиствах StringGrida есть FixCols, FixRows
зделаи их значения 0

[eva-2030]

Спасибо! Стыдно было не знать...