摘要:
关于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 阅读全文
摘要:
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 .. 阅读全文
摘要:
//从数据库表里读取数据写入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 阅读全文