关于MEMO换行的问题

Question

我想把query查询出来的结果在MEMO中显示,我的代码是
query1.first;
repeat
memo1.lines.add(query1.fields[0].asstring);
query1.next;
until query1.eof;
可是他显示的是
1
2
3
我想显示的形式是1 2 3 
我试了memo1.lines.append ,memo1.lines.insert都不行,各位指点一下呢

Answer 1

你加一个回车换行符进去试试:
memo1.lines.add(query1.fields[0].asstring+#13);

Answer 2

var s:string;query1.first;
repeat
s:=s+query1.fields[0].asstring;
query1.next;
until query1.eof;memo1.Text:=s;

Answer 3

real_name(*真名) 的方法可行也可以在SQL语句中作改变，就是说SQL语句一次性全部查询出来，
如：  Query1.Close;
  Query1.SQL.Text := 
    'declare @S varchar(8000) ' +
    'set @S = '''' ' +
    'select @S = @S + Field1 from tablename ' +
    'Select @S';
  Query1.Open;如果中间要加上间隔符号，就在
'select @S = @S + Field1 from tablename '这条语句里面加

Answer 4

memo1.lines.add(query1.fields[0].asstring+#13);
试试吧！！