IORILI的专栏

在最近的项目开发过程中，由于客户的需要，要对数据库中相同种类的货物进行汇总统计，经过多方面查阅，发现网上这方面的东西缺乏，于是就写了一个过程来实现这一功能。由不足之处请大家多多指正，多谢程序中用到了第三方控件vsflexgrid,过程中变量vsgrid可以换成stringgrid但其中的部分代码要做必要的删除。procedure heji(vsgrid:tvsflexgrid);var

procedure Tcpya_app.FormCreate(Sender: TObject);begin  datamodule2.tree.close;  datamodule2.tree.sql.clear;  datamodule2.tree.sql.add(select name from plat order by name);  datamodule2.tree.Active:=

下列程序是本人在软件开发过程中根据用户操作上的方便，写的一个小过程，主要实现了向listview控件中拖放文件功能，其源代码如下：procedure tyanzheng.AppMessage(var Msg: TMsg;var Handled: Boolean); varnFiles, I: Integer;ListItem: TListItem;beginif (Msg.message =

引用CommCtrl单元procedure TForm1.Button1Click(Sender: TObject);begin   ListView_DeleteColumn(MyListView.Handle, i);//i是要删除的列的序号，从0开始end;用LISTVIEW显示表中的信息：procedure viewchange(listv:tlistview;tabl

procedure GetDirectories(list: TlistView; Directory: string; Item: Tlistitem; IncludeFiles: boolean);varSearchRec: TSearchRec;begin   list.Items.BeginUpdate;//准备更新   list.Items.Clear;  //清空list内容   if