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,

文章來源于領測軟件測試網 http://www.kjueaiud.com/