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

[alman12]

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;

так добавляется толка на первую строку и исчезаеть ранее введенные

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);

иак выдает ошибку

(Сannot insert or delete rows from grid)

[Stilet]

Эх студент студент...
Держи, пока у мну чувство юмора живо:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure StringGrid1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.StringGrid1Click(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with StringGrid1 do begin
    RowCount:=RowCount+1;
    Cols[0].Text:=Edit1.Text+#13#10+Cols[0].Text;
    Cols[1].Text:=trim(memo1.Text)+#13#10+Cols[1].Text;
  end;
end;

end.

А теперь внимание фокус: Правильный ответ дан в посте http://www.programmersforum.ru/showp...97&postcount=4
И ни-и-иче ты с этим не поделаешь.
Хотя бы потому что данные из мемо будут садиться некорректно из-за переносов строк.

[alman12]

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

Эх студент студент...
Держи, пока у мну чувство юмора живо:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure StringGrid1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.StringGrid1Click(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with StringGrid1 do begin
    RowCount:=RowCount+1;
    Cols[0].Text:=Edit1.Text+#13#10+Cols[0].Text;
    Cols[1].Text:=trim(memo1.Text)+#13#10+Cols[1].Text;
  end;
end;

end.

А теперь внимание фокус: Правильный ответ дан в посте http://www.programmersforum.ru/showp...97&postcount=4
И ни-и-иче ты с этим не поделаешь.
Хотя бы потому что данные из мемо будут садиться некорректно из-за переносов строк.

спасибо ! так получился

как данные из мемо некорректно будут отображатся ?

[Stilet]

как данные из мемо некорректно будут отображатся ?

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

[alman12]

спасибо брат

[northener]

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

Почему?

Потому что TStringGrid изначально (в Д1) умел только добавлять строки "снизу". И редактировать ячейки. Ровно столько же он умеет и сейчас.
Методы в protected секции не рассматриваю, ибо они скорее были сделаны как пример.

[Stilet]

Ровно столько же он умеет и сейчас.

Ну это никогда не было преградой.
Впрочем я с тобой согласен в данном случае. Я бы выбрал ListView.

[northener]

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

Ну это никогда не было преградой.

Ну не скажи. Примером является и этот топик и прочие подобные, где речь идёт о работе со строками в TStringGrid. Как например реализован защищенный метод TStringGrid.DeleteRow.

procedure TCustomGrid.DeleteRow(ARow: Longint);
begin
  MoveRow(ARow, RowCount - 1);
  RowCount := RowCount - 1;
end;

Разве это нормальное (всем привычное) удаление строки? Не важно в текстовом файле, таблице Ёксель и т.д. и т.п.
Как сделать нормальное удаление? Написать свой компонент наследник. Два пальца об асфальт. Но как быть дальше если сей код используется кем-то другим?

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

Впрочем я с тобой согласен в данном случае. Я бы выбрал ListView.

Так и есть. В реальном малобюджетном проекте нет альтернатив TListView в режиме vsReport. Да и выглядит он более современно..

[Аватар]

Разве это нормальное (всем привычное) удаление строки?

Не привычное. Но и не повод для брюзжания. ListView в основном удобней, но и на StringList можно конфетку сделать в определенных ситуациях. Не думаю, что отсутствие прозрачных методов вставки и удаления такой жирный крест ставит

[Stilet]

Примером является и этот топик и прочие подобные

Этот топик вообще примером быть не может ничему