Delphi 循环输出ADODataSet中的每一条记录

阿杰

1. var
   
2.   sJine: string;
   
3. begin
   
4.   ADODataSet1.CommandText := 'select unitName from unit';
   
5.   ADODataSet1.Open;
   
6.   ADODataSet1.first
   
7.     while not ADODataSet1.eof do
   
8.   begin
   
9.     sJine := ADODataSet1.FieldByName('unitName').AsString;
   
10.     ShowMessage(sJine);
    
11.     ADODataSet1.Next;
    
12.   end;

复制代码

upring

一段小代码{:soso_e192:}