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

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;