说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

怎么让StringGrid的行数随数据的多少改变?

编辑:说三道四文库 发布时间:2018-05-25 11:38
HTML文档下载 WORD文档下载 PDF文档下载
怎么让StringGrid的行数随数据的多少改变?
StringGrid.RowCount := StringGrid.RowCount + 1;  // 增加一行
自己写个函数,先得到数据的条数,再用两个循环写进去
StringGrid1.RowCount:=记录条数
procedure TForm1.Button1Click(Sender: TObject);
var
  sl:TStringList;
  i:integer;
begin
  sl:=TStringList.Create;
  opendialog1.Filter:='*.txt|*.txt';
  if opendialog1.Execute then
    sl.LoadFromFile(opendialog1.FileName);
  stringGrid1.RowCount:=sl.Count;
  for i:=1 to sl.Count-1 do
  begin
    stringGrid1.Cells[1,i]:=sl.Strings[i];
  end;
end;
结贴!
如果我要让用户修改有些网格,有些不让修改,怎么实现呢?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘