zoukankan      html  css  js  c++  java
  • Delphi中StringGrid删除

    开发环境D7
    只是部分代码
    StringGrid1事先固定了行数为20,固定了一行为标题行

    ----实现单行删除内容(StringGrid1事先固定了行数为20,固定了一行为标题行),没有固定多少行的时候请适当改写,这个是本人测试代码

     1 var
     2   i:Integer;
     3 begin
     4   if StringGrid1.RowCount<2 then
     5   begin
     6     Exit;
     7   end;
     8   StringGrid1.Rows[StringGrid1.Row].Clear;
     9   if StringGrid1.Row=StringGrid1.RowCount-1 then
    10     Exit;
    11   for i:=StringGrid1.Row to StringGrid1.RowCount-2 do
    12   begin
    13     StringGrid1.Rows[i]:=StringGrid1.Rows[i+1];
    14     StringGrid1.Rows[i+1].clear;
    15   end;
    16 
    17 end;

    --------增加行

    StringGrid1.RowCount:=StringGrid1.RowCount+1;

    ---------减少行

    StringGrid1.RowCount:=StringGrid1.RowCount-1;

    ----------Showhint 单元格内容

    1 procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
    2   X, Y: Integer);
    3 begin
    4   if (StringGrid1.MouseCoord(x,y).X>StringGrid1.ColCount-1) or (StringGrid1.MouseCoord(x,y).X<0) then
    5     Exit;
    6   if (StringGrid1.MouseCoord(x,y).Y>StringGrid1.RowCount-1) or (StringGrid1.MouseCoord(x,y).Y<0) then
    7     Exit;
    8   StringGrid1.Hint:=StringGrid1.Cells[StringGrid1.MouseCoord(x,y).X,StringGrid1.MouseCoord(x,y).Y];
    9 end;

    --------------为单元格赋值    标题行赋值

     1 var
     2   i,j:Integer;
     3 begin
     4    StringGrid1.Cols[0].Text:='A000A';
     5    StringGrid1.Cols[1].Text:='B000B';
     6    for i:=0 to StringGrid1.ColCount-1 do
     7    begin
     8      for j:=0 to StringGrid1.RowCount-1 do
     9      begin
    10        if j=0 then
    11        begin
    12          Continue;
    13        end;
    14        StringGrid1.Cells[i,j]:=Format('i:=%d ;j:=%d',[i,j]);
    15      end;
    16    end;
    17 end;

    ---------------清空StringGrid的内容(标题行不清除)

    1 var
    2   i:Integer;
    3 begin
    4    for i:=1 to StringGrid1.RowCount-1 do
    5       StringGrid1.Rows[i].Clear;
    6 end;
  • 相关阅读:
    一个方法只做一件事
    日常-生活-学习-经验分享
    Python 用下划线作为变量前缀和后缀指定特殊变量
    浏览器渲染的基本原理
    七个对我最好的职业建议
    web性能优化
    Javascript 设计模式
    数据结构与算法 Javascript描述
    mysql计算连续天数,mysql连续登录天数,连续天数统计
    Oracle计算连续天数,计算连续时间,Oracle连续天数统计
  • 原文地址:https://www.cnblogs.com/dmqhjp/p/15775009.html
Copyright © 2011-2022 走看看