Ayuda con ListBox Urgente ...

[Ricomarz]

Que tal quisiera que me ayudaran con este problema que tengo, les explico tengo un ListBox con los siguientes datos: matricula,digito verificador, importe, folio, fecha y estatus respectivamente:

304358 5684 2541.10 645 2007-06-15 0
304256 2564 1564.10 564 2007-06-10 0

Lo que quiero hacer es obtener linea por linea y agregarlos a una tabla .... he intentado pero no he podido hacerlo espero puedan ayudarme por que en verdad me urge, es para un trabajo que tengo que entregar el dia lunes y necesito hacer esta parte para poder pasar a lo siguiente el generar los reportes ...

Bueno espero y me ayuden ....

Saludos Ricomarz

[dec]

Hola,

Por favor, revisa la guía de estilo de estos Foros. No es esa forma de plantear preguntas aquí.

[roman]

Bueno, bueno, Ricomarz, haz caso de lo que dice dec. Es que aquí estamos entre amigos y los amigos no se piden las cosas unos a otros con urgencia.

Lo que preguntas puedes resolverlo así

Código Delphi [-]
var
  Campos: TStringList;
  I: Integer;

begin
  Campos := TStringList.Create;

  try
    for I := 0 to ListBox.Items.Count - 1 do
    begin
      Campos.CommaText := ListBox.Items[i];

      Table.Edit;
      Table['matricula'] := Campos[0];
      Table['digito'] := Campos[1];
      Table['importe'] := Campos[2];
      Table['folio'] := Campos[3];
      Table['fecha'] := Campos[4];
      Table['estatus'] := Campos[5];
      Table.Post;
    end;
  finally
    Campos.Free;
  end;
end;

Es decir, cada elemento en tu ListBox lo asignas a la propiedad CommaText de un TStringList. Un TStringList es una lista de cadenas (igual que ListBox.Items); al asignar a su propiedad CommaText, el texto se desglosa por espacios y comas y cada término se pone en un item. Es decir, una cadena como "304358 5684 2541.10 645 2007-06-15 0" la convierte en una lista

304358
5684
2541.10
645
2007-06-15
0

de manera que puedes aceder a cada elemento por separado y asignarlos a tu tabla.

// Saludos

[joHn je@N]

Justamente Roman no se si creer en el destino porque jejejeje estaba investigando el similar al StringTokenizer de Java pero, en Delphi claro.
Y me encuentro con este tema.
Tengo que dar las gracias por la respuesta que das ya que no solo le servirá a
Ricomarz si no a mi tambien.

Solo un agregado. Mencionas de las palabras separadas por espacios y por comas. Un favor. Me indicarías Roman como agregar otro tipo de caracteres para poder hacer la separación de las palabras. Me refiero a que además de la comas y el espacio, pudiece utilizar #, $, & etc etc.

GRACIAS y SALUDOS

[dec]

Hola,

Prueba con la propiedad "Delimiter" de la clase "TStrings". Ahí puedes indicar el caracter separador, como alguno de los que dices.

[joHn je@N]

Ciertamente Dec y
Segun Roman usando la variable campos sería:

Código Delphi [-]
campos.Delimiter := '#&% ,';

y así los que se adapten al gusto del programador.

Gracias de todas formas Roman por mostrar el camino.

SALUDOS

[[Lepe]]

Un apunte:

Delimiter está declarado como char, así que solo puedes usar un caracter como separador. Internamente siempre usará el espacio, así que poniendo una coma en Delimiter tendrías 2 separadores de caracteres, la coma y el espacio.

Saludos