de listbox a tabla

[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

[*Caro*]

Hola, debes hacerlo como te indica MartinS, solo añadiendo, también puedes acceder al Item del ListBox de esta forma:

Código Delphi [-]
dmdatos.ATMATERIASDESCRIPCION.AsString:=  listbox2.Items[a];
 //y puedes utilizar With
for a := 0 to listbox2.count -1 do 
  begin 
    With dmdatos do
      begin
        ATMATERIAS.Append;
        ATMATERIASMATERIAID.AsString:=edit1.Text;
        ATMATERIASDESCRIPCION.AsString:=  listbox2.Items[a];
        ATMATERIAS.Post;
      begin
  end;

Saluditos

[donpedro]

muchas gracias martinS, y caro.... funciona a la perfeccion.. ahora estoy tratando de hacer: por ejemplo: si le asigno 5 materias a un grado y grabo,, pero se me olvido agregar otra.. como hago para que solo me grabe la nueva que voy a incluir. no se si me di a entender....
lo que estoy tratando es de crear un boton que me modifique la tabla utilizando el siguiente codigo:

Código Delphi [-]
//esto va dentro del boton modificar
with dmdatos do
begin
atmaterias.Locate('materiaid',edit1.Text,[]);
atmaterias.Edit;
end;

entonces en el boton grabar comparo si la tabla esta en insert o en edit,,, pero el programa explota y dice que no se ha podido encontrar el hilo.

lo que quiero es que la que ya estan grabadas me las deje intacta y que solo grabe la nueva que se incluyo.

como me pueden ayudar..gracias