stringlist quitar salto de linea de items

[ecfisa]

Hola jonydread.

Código Delphi [-]
function TStringsToString(TS: TStrings): string;
const
   DELIM = ' - ';
var
  i: Integer;
begin
  for i:= 0 to TS.Count - 1 do
    Result := Result + TS[i] + DELIM;
  SetLength(Result, Length(Result)-Length(DELIM));
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  TS: TStrings;
  i : Integer;
begin
  TS := TStringList.Create;
  try
    for i := 1 to 10 do TS.Add('Item ' + IntToStr(i)); // cargar unos datos...
    ShowMessage(TStringsToString(TS));  // mostrar
  finally
    TS.Free;
 end;

 // otro ej. de uso
 ShowMessage(TStringsToString(ComboBox1.Items));
end;

Saludos