利用 TstringList 循环取数据 应用例子
摘要：
procedure GetData; var BillNoList,ActidList:TStrings; i:integer; begin ActidList:=TStringList.Create(); BillNoList:=TStringList.Create(); with SQLQuerySrcEntityid do begin Open;First; while not Eof do begin ActidList.Add(FieldByName('SrcActid').asString); ... 阅读全文
posted @ 2009-08-18 17:16 Qcj 阅读(803) 评论(0) 推荐(1) 编辑