01 2010 档案

读取数据
摘要：代码测试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 岛主 阅读(177) 评论(0) 推荐(0)