2012年1月5日
关于ListView指针Data介绍
摘要： 关于TListView中的Data属性赋值：type PAllHidenDate = ^AllHidenDate; AllHidenDate = record PriceID: Integer; OrderNumber: string; State: Integer; PriceData: WideString; end;var HidenData: PAllHidenDate;beginwith lvDataViewAll.Items.Add dobeginHidenData := New(PAllHidenDate);HidenData.PriceID := StrToIntDef(Nod 阅读全文
posted @ 2012-01-05 15:15 byronming 阅读(463) 评论(0) 推荐(0)
TListView属性及用法
摘要： procedure TForm1.FormCreate(Sender: TObject);var　i:Integer;　TempColumn:TListColumn;　TempItem:TListItem;begin　ListView1.ViewStyle:=vsReport;　for i:=0 to Query1.FieldCount-1 do　begin TempColumn:=self.ListView1.Columns.Add; TempColumn.Caption:=Query1.Fields[i].FieldName;　end;　Query1.First;　while not .. 阅读全文
posted @ 2012-01-05 14:29 byronming 阅读(795) 评论(0) 推荐(0)
delphi TListView属性及用法
摘要： //从数据库表里读取数据写入ListviewvarTitem:Tlistitem; //此处一定要预定义临时记录存储变量.beginListView1.Items.Clear;with adoquery1 dobeginclose;sql.Clear;sql.Add('select spmc,jg,sl from kcxs');Open;ListView1.Items.Clear;while not eof dobeginTitem:=ListView1.Items.add;Titem.Caption:=FieldByName('spmc').Value;Tit 阅读全文
posted @ 2012-01-05 13:45 byronming 阅读(10671) 评论(1) 推荐(2)