Acerca de CommaText

[[Lepe]]

Eso me pasa por listillo jejeje, bueno , pues vamos a lo que vamos:

Código Delphi [-]
function DelimitedText(lista:TStringList;Delimiter:char):string;
var i:integer;
begin
  for i:= 0 to lista.count-2 do
     result := result+ lista[i]+ Delimiter;
  if lista.count > 1 then
     result:= result+lista[lista.count-1]
end;

Vas a tener que crear otra rutina para añadir las comillas dobles, pero eso te lo dejo a ti.

Espero que te sirva