Delphi StringGrid使用全书2

领测软件测试网

　　 PosActual := Line; 
　　 Row.Assign(TStringlist(StrGrid.Rows[PosActual])); 
　　 While True do 
　　 Begin 
　　　 If (PosActual = 0) Or (StrToInt(Row.Strings[NoColumn-1]) >= StrToInt(StrGrid.Cells[NoColumn-1,PosActual-1])) then 
　　　 Break; 
　　　 StrGrid.Rows[PosActual] := StrGrid.Rows[PosActual-1]; 
　　　 Dec(PosActual); 
　　 End; 
　　 If StrToInt(Row.Strings[NoColumn-1]) < StrToInt(StrGrid.Cells[NoColumn-1,PosActual]) then 
　　　 StrGrid.Rows[PosActual] := Row; 
　 End; 
　 Renglon.Free; 
end;　


TstringGrid 的行列合并研究

unit Unit1;

//建立一工程，
//粘贴本单元代码即可看 STringGrid 行列合并效果
//但发现非固定行非固定列的合并效果不好
interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

文章来源于领测软件测试网 https://www.ltesting.net/