var is_input:String;begin query1.close; query1.sql.text:='select a,b,c from 表名称'; query1.open; while not query1.eof do begin is_input:= query1.fieldbyname('a').Asstring+'|'+ query1.fieldbyname('b').Asstring+'|'+ query1.fieldbyname('c').Asstring+'|'; .......处理你的代码...... query1.next; end; query1.close;end;delphi里面取数据库数据,和PB有那么一些差别,需要通过控件来取数据。