Question

Delphi 执行 SQL 返回多个结果 组合 并显示在 Edit1中

我想得到的结果 类似于这样 返回结果为多个 title 列中有三行数据分别为：
server1
server2
server3
最后在 Edit1 里面显示为 server1|server2|server3
代码应该怎么写。

ADOQuery1.Sql.Clear;
ADOQuery1.Sql.Add('SELECT [title] FROM [dbo].[server]');
ADOQuery1.Open;
while not ADOQuery1.Eof do begin
SendData := SendData + '|' + ADOQuery1['title'];
ADOQuery1.Next
end；

我自己写的是错误的。

Answer 1

ADOQuery1.Sql.Clear;
ADOQuery1.Sql.Add('SELECT [title] FROM [dbo].[server]');
ADOQuery1.Open;
while not ADOQuery1.Eof do begin
SendData := SendData + ADOQuery1['title'] + '|' ; //把分隔符的位置重新放一下。
ADOQuery1.Next;
end；
system.delete(SendData, Length(SendData)-1, 1); //加这一行，删除最后的分隔符

Answer 2

主要问题就是 ADOQuery1['title']返回的是一个Variant类型的变量，如果为空或者其它无法转换的情况就会报异常。
with adoquery1 do
begin
Close;
Sql.Text:='SELECT [title] FROM [dbo].[server]';
Open;
while not EOF do
begin
sendData:=SendData+FindField('Title').asString;
next;
end;
end;
ShowMessage(SendData);

Answer 3

//str:string;
while not ADOQuery1.Eof do begin
str:=ADOQuery1['title'];
ADOQuery1.Next
if ADOQuery1.Eof then
begin
SendData := SendData + '|' + str;
end
else
begin
SendData := SendData + str+ '|' ;
end;
end；
这样应该可以实现，你试试吧；