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;
时间: 2024-10-05 19:37:09

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

【转自官网】INS-30508 Invalid ASM Disks on Grid Infrastructure Installation (文档 ID 1999903.1)

注:在AIX平台中安装oracle 12.1/12.2/18c等数据库,创建ASM磁盘组的阶段,无法正确识别到磁盘. Applies to: Oracle Database - Enterprise Edition - Version 12.1.0.2 and laterIBM AIX on POWER Systems (64-bit) Symptoms Silent installation of Grid Infrastructure 12.1.0.2 standalone on AIX 6

ie6 ie7下,Li不能自动换行---li不固定宽度,所有li同一行显示

所有的li都应该在同一行显示,不固定Li的宽度,如果一行排不下,需要自动换行.当然Li的内容长度不同. 必须在li加white-space:nowrap; 如果没加这句,IE6和IE7会乱掉,IE8是好的.

UVA 146 ID Codes(下一个排列)

C - ID Codes Time Limit:3000MS     Memory Limit:0KB     64bit IO Format:%lld & %llu Submit Status Appoint description:  System Crawler  (2014-05-12) Description  ID Codes  It is 2084 and the year of Big Brother has finally arrived, albeit a century l

mysql insert操作失败后id 在auto_increment下仍会自增的解决办法

在使用golang go-sql-driver操作mysql时,往tag表插入一条新数据时,如果插入失败,id仍会自增,插入数据失败次数过多时,id就看起来十分混乱. 所以我就在搜索下原因,发现是InnoDB的机制,大致就是说InnoDB的innodb_autoinc_lock_mode模式下,自增计数器在操作失败的情况下仍会增加.一般情况下如果担心id增加超过范围,可以把id的类型改为BIGINT. create table tag ( id int auto_increment primar

自动换行 整齐排版 换行自动缩进

分割字符串 public class MainActivity extends Activity {     private TextView tv1, tv2, tv3;     //连续的英文字符串,包含数字及部分标点符号,如[.,_],不能被折成两行     private static String TEXT1 = "http://www.www1234www,www_www.cnblogs.com/baiqiantao/";     private static String

Android TextView自动换行文字排字参差不齐的原因及处理

Android TextView自动换行文字排版参差不齐的原因及处理 转自: TextView会自动换行,而且排版文字参差不齐.查了下资料,总结原因如下: 1.半角字符与全角字符混乱所致:这种情况一般就是汉字与数字.英文字母混用 解决方法一: 将textview中的字符全角化.即将所有的数字.字母及标点全部转为全角字符,使它们与汉字同占两个字节,这样就可以避免由于占位导致的排版混乱问题了. 半角转为全角的代码如下,只需调用即可.public static String ToDBC(String

Android自定义View(LineBreakLayout-自动换行的标签容器)

??最近一段时间比较忙,都没有时间更新博客,今天公司的事情忙完得空,继续为我的自定义控件系列博客添砖加瓦.本篇博客讲解的是标签自动换行的布局容器,正好前一阵子有个项目中需要,想了想没什么难度就自己弄了.而自定义控件系列文章中对于自定义ViewGroup上次只是讲解了一些基础和步骤 Android自定义ViewGroup(四.打造自己的布局容器),这次就着这个例子我们来完成一个能在项目中使用的自定义布局容器. 1. 初步分析 ??首先我们看一看要完成的效果图: ?????? ??上面红色标示出的就

Android TextView自动换行文字排版参差不齐的原因

今天项目没什么进展,公司后台出问题了.看了下刚刚学习Android时的笔记,发现TextView会自动换行,而且排版文字参差不齐.查了下资料,总结原因如下: 1.半角字符与全角字符混乱所致:这种情况一般就是汉字与数字.英文字母混用 解决方法一: 将textview中的字符全角化.即将所有的数字.字母及标点全部转为全角字符,使它们与汉字同占两个字节,这样就可以避免由于占位导致的排版混乱问题了. 半角转为全角的代码如下,只需调用即可. public static String ToDBC(Strin

android textview 自动换行 整齐排版

一.问题在哪里? textview显示长文字时会进行自动折行,如果遇到一些特殊情况,自动折行会杯具成这个样子: 上述特殊情况包括: 1)全角/半角符号混排(一般是数字.字母.汉字混排) 2)全角/半角标点符号出现在行首时,该标点符号会连同其前一个字符跳到下一行 3)英文单词不能被折成两行 4)...... [转载请保留本文地址:http://www.cnblogs.com/goagent/p/5159125.html] 二.怎么搞? 通常有两类解决方案: 1)修改文本内容,将所有符号全角化.在标