stringrid增加和删除行.docVIP

stringgrid增加和删除行 i:=StringGrid1.Row; repeat if StringGrid1.Cells[i,0]=路径不存在 then StringGrid1.Rows[i].Delete(1); StringGrid1.RowCount:=StringGrid1.RowCount+1; until i100; filesearch函数 procedure TForm1.N9Click(Sender: TObject); //查找指定文件 FileSearch var FileName,Dir,s: string; begin FileName := notepad.exe; // 要找的文件 Dir := c:\windows; //指定在哪个目录查找 s := FileSearch(FileName,Dir); if s then //如果上面的函数返回值不为空，则..否则.. ShowMessage(s) //c:\windows\notepad.exe else ShowMessage(没找到); end; stringgrid行的增加和删除及其他应用 type 　　TExCell = class(TStringGrid) 　public 　　procedure DeleteRow(ARow: Longint); 　　procedure DeleteColumn(ACol: Longint); 　　procedure InsertRow(ARow: LongInt); 　　procedure InsertColumn(ACol: LongInt); 　　end; 　　procedure TExCell.InsertColumn(ACol: Integer); 　　begin 　　ColCount :=ColCount +1; 　　MoveColumn(ColCount-1, ACol); 　　end; 　　procedure TExCell.InsertRow(ARow: Integer); 　　begin 　　RowCount :=RowCount +1; 　　MoveRow(RowCount-1, ARow); 　　end; 　　procedure TExCell.DeleteColumn(ACol: Longint); 　　begin 　　MoveColumn(ACol, ColCount -1); 　　ColCount := ColCount - 1; 　　end; 　　procedure TExCell.DeleteRow(ARow: Longint); 　　begin 　　MoveRow(ARow, RowCount - 1); 　　RowCount := RowCount - 1; 　　end; 　　如何编写使StringGrid中的一列具有Check功能，和CheckBox效果一样 　　unit Unit1; 　　interface 　　uses 　　Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids; 　　type 　　TForm1 = class(TForm) 　　grid: TStringGrid; 　　procedure FormCreate(Sender: TObject); 　　procedure gridDrawCell(Sender: TObject; ACol, ARow: Integer; 　　Rect: TRect; State: TGridDrawState); 　　procedure gridClick(Sender: TObject); 　　private 　　{ Private declarations } 　　public 　　{ Public declarations } 　　end; 　　var 　　Form1: TForm1; 　　fcheck,fnocheck:tbitmap; 　　implementation 　　{$R *.DFM} 　　procedure TForm1.FormCreate(Sender: TObject); 　　var 　　i:SmallInt; 　　bmp:TBitmap; 　　begin 　　FCheck:= TBitmap.Create; 　　FNoCheck:= TBitmap.Create; 　　bmp:= TBitmap.create; 　　try 　　bmp.ha