Question

delphi 查询到的两个结果如何显示在一个文本框里

4 4 6
4 4 7
用delphi查询的时候条件是前面那两个4 但是结果有6 和 7 如何让6 和 7同时输出在一个文本框里 例如6/7
是用query查询的

Answer 1

如表名为gg字断如下的表,并搞一个MEMO控件就是你说的文本框
no1 no2 no3
4 4 6
4 4 7

****************************
procedure TForm1.Button1Click(Sender: TObject);
var
a:string;
i:interger;

begin
i:=0;

with ADOQuery do
begin
close;
sql.Clear;
sql.add('select * from gg where no1=''4'' and no2=''4''');
open;
end;
while not ADOQuery.Eof do

begin
i:=i+1;

a:=ADOQuery.FieldByName('no3').AsString;
memo.lines.add(a);
if i>=2 then

begin
memo.lines.add(memo.lines[0]+'\'+a);
end;

ADOQuery.next;

end;
end;

Answer 2

循环结果集，取你要的字段，赋值到edit的text里面