de listbox a tabla

[donpedro]

hola newtron, el problema es que solamente me graba el primer items del listbox, y lo que quiero es que grabe el primero luego siga con los demas agregandole a cada uno el codigo del grado que esta en el edit.

[jafera]

Hola, prueba así

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);var a:integer;
begin  
for a := 0 to listbox2.count -1  do  
begin
             dmdatos.ATMATERIAS.Append;  // cambia de posición tal como dice newtron
             dmdatos.ATMATERIASMATERIAID.AsString:=edit1.Text;
             dmdatos.ATMATERIASDESCRIPCION.AsString:=listbox2.Items.Text;
             dmdatos.ATMATERIAS.Post;
             dmdatos.ATMATERIAS.Next;   // añade
end;

Saludos

[donpedro]

hola jafera, le hice los cambios pero aun asi solo me graba el primer item del listbox,, parece que el for no lo esta recorriendo

[jafera]

Perdón, habia cogido el código de un uso mio que lo hago desde una tabla, tu lo que tienes que hacer es un next al item del listbox2

listsbox2.Items.Next;

procedure TForm1.Button1Click(Sender: TObject);var a:integer;
begin
for a := 0 to listbox2.count -1 do
begin
dmdatos.ATMATERIAS.Append; // cambia de posición tal como dice newtron
dmdatos.ATMATERIASMATERIAID.AsString:=edit1.Text;
dmdatos.ATMATERIASDESCRIPCION.AsString:=listbox2.Items.Text;
dmdatos.ATMATERIAS.Post;
listbox2.Items.Next; // añade
dmdatos.ATMATERIAS.Next; // quita
end;


A ver así

Saludos

[donpedro]

da error en la linea:
listbox2.items.next;

creo que el next no se utiliza en el listbox

[jafera]

No se, puedes probar con ItemIdex.

listbox2.ItemIndex(a);


Mira en la ayuda de Delphi (yo lo estoy haciendo)

Josep

[MartinS]

Hola: debes indicarle el numero de indice del ListBox.

Código Delphi [-]
 for a := 0 to listbox2.count -1 do 
  begin 
    dmdatos.ATMATERIAS.Append; // cambia de posición tal como dice newtron
    dmdatos.ATMATERIASMATERIAID.AsString:=edit1.Text;
    dmdatos.ATMATERIASDESCRIPCION.AsString:=  listbox2.Items.Strings[a]; // El "a" te esta dando el indice de la lista
    dmdatos.ATMATERIAS.Post;
  end;

Nada mas que eso. Del bucle se encarga el for.

Saludos