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