Delphi想TStringGrid中添加和删除行的方法

本文整理自网络，侵删。

 
{...}
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    {...}
  public
    {...}
  end;

type
  TStringGridHack = class(TStringGrid)
  protected
    procedure DeleteRow(ARow: Longint); reintroduce;
    procedure InsertRow(ARow: Longint);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TStringGridHack.DeleteRow(ARow: Longint);
var
  GemRow: Integer;
begin
  GemRow := Row;
  if RowCount  FixedRows + 1 then
    inherited DeleteRow(ARow)
  else
    Rows[ARow].Clear;
  if GemRow then Row := GemRow;
end;

procedure TStringGridHack.InsertRow(ARow: Longint);
var
  GemRow: Integer;
begin
  GemRow := Row;
  while ARow do Inc(ARow);
  RowCount := RowCount + 1;
  MoveRow(RowCount - 1, ARow);
  Row := GemRow;
  Rows[Row].Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Insert Row, Zeile hinzufügen
  TStringGridHack(StringGrid1).InsertRow(1);
  // Remove Row, Zeile entfernen
  TStringGridHack(StringGrid1).DeleteRow(2);
end;

end.
//该代码片段来自于: http://www.sharejs.com/codes/delphi/8760
 

相关阅读 >>

Delphi发送邮件函数

Delphi 精炼的数字转换人民币大写转换代码

Delphi unidbtreegrid判断点击折叠事件

Delphi copy 字符串函数

Delphi 利用tidhttp实现文件下载的分块断点续传

Delphi判断驱动器类型

Delphi datetime，date，time tdatetimepicker

Delphi xe 获取android 系统版本

Delphi使用spcomm没办法触发receivedata

Delphi判断系统是否64位

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi想TStringGrid中添加和删除行的方法