Dividir lista en tres columnas

[roman]

¿No te sirve la propiedad Columns?

// Saludos

[DarkByte]

Me explico mejor, estoy intentando pasar el listado a través de TCP desde mi ordenador viejo al ordenador nuevo. Y como lo tengo que enviar línea por línea..., no puedo hacer nada con Columns o cosas así.

[roman]

Te puedes hacer una rutina que haga lo que quieres, algo como:

Código Delphi [-]
var
  I: Integer;
  Line: String;

begin
  for I := 0 to ListBox1.Count - 1 do
  begin
    if Line = ''
      then Line := Line + ListBox1.Items[i]
      else Line := Line + #9 + ListBox1.Items[i];

    if (I + 1) mod 3 = 0 then
    begin
      Memo1.Lines.Add(Line);
      Line := '';
    end;
  end;
end;

Pero no entiendo por qué has de enviarlo línea por línea. ¿No puedes simplemente mandar ListBox.Items.Text de una sóla vez?

// Saludos

[DarkByte]

Porque creo que .Text tiene límite de carácteres, ¿me equivoco?.

[roman]

Empezado por DarkByte

Porque creo que .Text tiene límite de carácteres

Text simplemente te da el contenido del ListBox en un solo strings incluyendo los cambios de línea correspondientes a las líneas.

// Saludos