- 博客(1)
- 收藏
- 关注
原创 delphi 中dbgrid升降序的简约代码
procedure TForm13.DBGrid1TitleClick(Column: TColumn); vari:integer;Str:string; begin for i:=0 to DBGrid1.Columns.Count-1 do begin Str:=DBGrid1.Columns[i].Title.Caption; if (pos(▲,cStr)=
2008-01-20 16:28:00 308
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人