一个很简单的问题

Question

表中有这样的一些记录：
12345，10
12345，20
12345，30
12345，40
……
处理以后变成如下：
12345，10，20，30，…
请教各位！

Answer 1

function JoinString(Strlist:Tstrings;RepeatStr,Asplite:String):String;
var
  i,len:integer;
begin
   result:='';
   if Strlist.count > 0 then
   begin
   len:=length(RepeatStr)+length(Asplite)+1;
   for i:=0 to Strlist.count-1 do
Result:=Result+Asplite+copy(Strlist[i],len,maxint);   Result:=RepeatStr+Asplite+Result;
   end; end;例子：
JoinString(memo1.lines,12345,'，');

Answer 2

JoinString(memo1.Lines,'12345','，');呵呵，漏了括号。。

Answer 3

sql server版块很多这样的问题，都已经解决ｎ次了

Answer 4

select field2 form table1 where field1='12345'
将查询结果与field1字段组合输出就是了

Answer 5

text1.text:='12345,'
select field2 form table1 where field1='12345'
open;
while not eof do
beign
  Text1.text:=Text1.text+filedbyname('field2').asstring+',';
  next;
end;