добавить строку с верха вниз stringgrid

[alman12]

как добавить строку с верха вниз stringgrid

   if StringGrid1.Cells[0, 0]<>'' then StringGrid1.RowCount:=StringGrid1.RowCount+1;
  StringGrid1.Cells[0, StringGrid1.RowCount-1]:=Edit1.Text;
  StringGrid1.Cells[1, StringGrid1.RowCount-1]:=memo1.Text;

[Arigato]

Не понял, что надо сделать.

[alman12]

новые введенные данные переместилис в первую строку

[northener]

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

как добавить строку с верха вниз stringgrid

Плохая идея.

[Stilet]

Примерно так.

   if StringGrid1.Cells[0, 0]<>'' then StringGrid1.RowCount:=StringGrid1.RowCount+1;
  StringGrid1.Cols[0].insert(StringGrid1.FixedRows,Edit1.Text);
  StringGrid1.Cols[1].insert(StringGrid1.FixedRows,memo1.Text);

Плохая идея.

Почему?

[min@y™]

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

Плохая идея.

Использование TStringGrid для хранения каких-то данных - вообще плохая идея.

[Serge_Bliznykov]

Примерно так.

   if StringGrid1.Cells[0, 0]<>'' then StringGrid1.RowCount:=StringGrid1.RowCount+1;
  StringGrid1.Cols[0].insert(StringGrid1.FixedRows,Edit1.Text);
  StringGrid1.Cols[1].insert(StringGrid1.FixedRows,memo1.Text);

у меня такое не работает:
StringGridError.jpg

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

[Stilet]

у меня такое не работает:

Ой! Где-то же было решение этой проблемы...
Запамятовал как правильно делается так что просто вброшу индокод:

  with StringGrid1 do begin
    ColCount:=ColCount+1;
    Cols[0].Text:=Edit1.Text+#13#10+Cols[0].Text;
    Cols[1].Text:=memo1.Text+#13#10+Cols[0].Text;
  end;

Не серчайте, уж и я иногда пользуюсь всякими дурностями и костылями
Впрочем автору это должно подойти.

[Аватар]

Есть защищенный метод RowMoved

  TStringGrid = class(Grids.TStringGrid)
  public
    procedure InsertRow(ToIndex: Integer);
  end;

...

procedure TStringGrid.InsertRow(ToIndex: Integer);
begin
  if (ToIndex>=0) and (ToIndex<=RowCount) then begin
    RowCount:=RowCount+1;
    if ToIndex<RowCount-1 then RowMoved(RowCount-1,ToIndex);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  StringGrid1.InsertRow(0);
end;

[Serge_Bliznykov]

Аватар, респект!