2010年1月23日
读取数据
摘要： 代码测试procedure TForm1.Button2Click(Sender: TObject);var Field: TField; i: Integer;begin Memo1.Clear; for Field in ClientDataSet1.Fields do begin Memo1.Lines.Add(Field.Value); end; Memo1.Lines.Add(''); ... 阅读全文
posted @ 2010-01-23 12:48 岛主 阅读(165) 评论(0) 推荐(0) 编辑