本文整理自网络,侵删。
listview的viewstyle属性设置为vsReportgridline属性设置为true双击listview,添加列,有多少个字段显示就添加几个列
举例代码listview1.clear;with adoquery1 dobegin Sql.text := 'Select * from table1'; Open ; while not eof do begin with listview1.items.add do begin caption := fieldbyName('field1').asstring; subitems.add(fieldbyName('field2').asstring); subitems.add(fieldbyName('field3').asstring); subitems.add... end; Next; end;end;
相关阅读 >>
winapi 字符及字符串函数(9): lstrcat - 合并字符串
Delphi获取dos命令行输出函数 运行cmd命令并获取结果
Delphi xe6 firemonkey移动应用程序获取android设备屏幕信息
Delphi stringtowidestring widestringtostring
更多相关阅读请进入《Delphi》频道 >>