timer实现Grid自动换行(连续相同的id跳到下一行)

最新推荐文章于 2024-03-25 16:35:25 发布

weixin_30535565

最新推荐文章于 2024-03-25 16:35:25 发布

阅读量68

点赞数

原文链接：http://www.cnblogs.com/studypanp/p/4942701.html

版权

 private
    { Private declarations }
    FRow: Integer;
    procedure SetRow(const Value: Integer);


  public
    { Public declarations }
    property Row : Integer read FRow write SetRow default -1;  // 属性
  end;

implementation

{$R *.fmx}

{ Tfrm }


procedure Tfrm.SetRow(const Value: Integer);
begin
  if(Value<>FRow) then begin
    FRow:=Value;
    G1.SelectRow(Value);
    Timer1.Interval:=G1.Cells[3,Value].ToInteger();
  end;
end;


procedure Tfrm.Timer1Timer(Sender: TObject);
var
  n, i, j: Integer;
begin
  n := FRow + 1;  // 当前行位置
  j := 0;         // IP相同的个数
  if n < G1.RowCount - 1 then // 防止超界
  begin
    for i := 0 to G1.RowCount - 1 do
    begin
      if i + 1 < G1.RowCount - 1 then
        if (G1.Cells[0, FRow] = G1.Cells[0, FRow + i]) then // 判断相邻行IP的相同个数  若相同则相加否则退出循环
          Inc(j)
        else break;
    end;
    if j <> 0 then n := FRow + j;
  end;
  if (n >= G1.RowCount - 1) then
    n := 0;
  Row := n;
end;

转载于:https://www.cnblogs.com/studypanp/p/4942701.html