Código Delphi [-] var s: string; i, len: integer; begin len := ListBox1.Items.Count - 1; for i := 0 to len do begin s := s + ' - ' + ListBox1.Items[i]; end; // Muestra los elementos separados por guiones ShowMessage(s); end;
var s: string; i, len: integer; begin len := ListBox1.Items.Count - 1; for i := 0 to len do begin s := s + ' - ' + ListBox1.Items[i]; end; // Muestra los elementos separados por guiones ShowMessage(s); end;