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)); ShowMessage(TStringsToString(TS)); finally
TS.Free;
end;
ShowMessage(TStringsToString(ComboBox1.Items));
end;
Saludos