Saltos de linea con stringlist

[JuanHC]

Hola, Tengo una serie de lineas entradas en un Stringlist,

Textos := TStringList.Create ;
Textos.Add('Nombre del cliente' );
Textos.Add('Direccion' );
Textos.Add('Poblacion' );
Textos.Add('Provincia' );
etc.

llamo al programa de mail y le paso esos datos

pChar('mailto:' + Trim(Destino) + '&subject=' + Trim(Asunto)+' &body=' + Textos.Text ) ,

El problema es que en el mail no me pone los saltos de linea, me deja todo seguido. Alguien sabe como puedo hacelro para que me separe las lineas?
He probado colocando de varias formas #10#13, detras del texto, en un nuevo TExtos.add, y no me sale bien.

Alguien puede decirme como podria hacerlo?

Gracias

[[seoane]]

Prueba codificando el texto según la normativa RFC 1738.

Código Delphi [-]
function URLEncode(Str: string): string;
var
  i: integer;
begin
  Result:= '';
  for i:= 1 to Length(Str) do
    if Str[i] in ['A'..'Z','a'..'z','0'..'9','-','_','.'] then
      Result:= Result + Str[ i ]
    else
      Result:= Result + '%' + IntToHex(Ord(Str[ i ]),2);
end;

El código que tu pasa quedaría así

Código Delphi [-]
pChar('mailto:'+URLEncode(Trim(Destino))+ '?subject=' + URLEncode(Trim(Asunto))+'&body='+URLEncode(Textos.Text))

No lo he probado pero con eso debería bastar, cuentanos haber si resulto bien.

EDITO: Ya lo he probado y parece que funciona, aunque no si si fue un error al copiar, pero el primer '&' debería ser un '?'.

[JuanHC]

Hola,

He probado le ejemplo y funciona perfectamente.

Muchas gracias.