Delphi - List Index Out of Bounds etc ayuda por favor!!!!

intento modificar una serie de campos...y me da el error List Index Out Of Bounds...alguien me da una mano...?

gracias de antemano


//el id es el 10
adoquery3.Close;
cons1:='SELECT colaboradores.usuario, colaboradores.password, colaboradores.nombre, colaboradores.apellido, colaboradores.direccion, colaboradores.telefono, colaboradores.email, colaboradores.web, colaboradores.rol, colaboradores.fecha, colaboradores.id FROM ';
cons2:='colaboradores, roles where colaboradores.rol=roles.id and colaboradores.id=:p';
adoquery3.SQL.Text:=cons1+cons2;
adoquery3.Parameters.ParamByName('p').Value:=adoquery1.Fields[10].AsString;
adoquery3.Open;
adoquery3.Edit;
//falta validar q las pwd sean iguales
adoquery3.Fields[0].AsString:=edit1.Text;
adoquery3.Fields[1].AsString:=edit2.Text;
adoquery3.Fields[2].AsString:=edit3.Text;
adoquery3.Fields[3].AsString:=edit4.Text;
adoquery3.Fields[4].AsString:=edit5.Text;
adoquery3.Fields[5].AsString:=edit6.Text;
adoquery3.Fields[6].AsString:=edit7.Text;
//averiguo el rol
adoquery4.Close;
adoquery4.SQL.Text:='select id, rol from roles where rol=:p';
adoquery4.Parameters.ParamByName('p').Value:=adoquery4.Fields[0].AsString ;
adoquery4.Open;

adoquery3.Fields[7].AsString:=edit8.Text;
adoquery3.Fields[8].AsString:=adoquery4.Fields[1].AsString ;
adoquery3.Fields[9].AsString:=edit10.Text;
adoquery3.Post;
adoquery3.Close;

adoquery4.Fields[0].AsString; no existe, porque unas lineas antes haces un AdoQuery4.Close,con lo cual ya no hay recordset ni indice 0.

creo q falla aca
adoquery4.Parameters.ParamByName('p').Value:=adoquery4.Fields[0].AsString;
ademas estas filtrando adoquery4 con adoquery4. guarda en un variable el dato antes de cerrar l adoquery4 y pasalo como parametros , si es eso lo que queres hacer.

saludos.

sigo en la misma "...BOUNDS(0)".

El .close lo hago porque estoy por digamos reparametrizar el adoquery4.

Igual gracias!

usa F7 para ir depurando el programa y fijate en que linea se detiene;

el tema de debuggear asi es q se detiene (aun teniendo el form3 solamente mostrandolo) es que a partir de que hace Show del primer form se detiene...

ideas...?

pone un breakpoint en ese codigo, y play, si no llega a ese breakpoint quiere decir q el problema esta en otro lado.

Por Otro lado, probaste cambiar los indices apartir de 1 y no de 0?

Yo uso para referir a un campo Query4['nombrecampo']

Probe aprolijando las cosas, practicamente funciona, los problemas son 2:
1) en lugar de modificar hace append
2)no postea los datos correspondientes que deberian salir del adoqry4 (que es un combo que se llena con fk´s)

procedure TForm3.Modificar1Click(Sender: TObject);
var cons1, cons2:string;

begin
if edit2.Text = edit9.Text then
begin
adoquery3.Close;
cons1:='select colaboradores.id, colaboradores.usuario, colaboradores.password, colaboradores.nombre, colaboradores.apellido, colaboradores.direccion, colaboradores.telefono, colaboradores.email, colaboradores.web, colaboradores.rol, colaboradores.fecha ';
cons2:='from colaboradores, roles where colaboradores.rol=roles.id';
//adoquery3.Parameters.ParamByName('p').Value:=adoquery2.Fields[9].AsString;
adoquery3.SQL.Text:=cons1+cons2;
adoquery3.Open;
adoquery3.Edit;
adoquery3.Fields[1].AsString:=edit1.Text;
adoquery3.Fields[2].AsString:=edit2.Text;
adoquery3.Fields[3].AsString:=edit3.Text;
adoquery3.Fields[4].AsString:=edit4.Text;
adoquery3.Fields[5].AsString:=edit5.Text;
adoquery3.Fields[6].AsString:=edit6.Text;
adoquery3.Fields[7].AsString:=edit7.Text;
adoquery3.Fields[8].AsString:=edit8.Text;

//averiguo el rol
adoquery4.Close;
adoquery4.SQL.Text:='select id, rol from roles where rol=:p';
adoquery4.Parameters.ParamByName('p').Value:=adoquery3.Fields[9].AsString ;
adoquery4.Open;

adoquery3.Fields[9].AsString:=adoquery4.Fields[0].AsString;
adoquery3.Fields[10].AsString:=edit10.Text;
adoquery3.Post;
adoquery3.Close;

showmessage('Registro modificado exitosamente!');

probe agregando
adoquery3.Parameters.ParseSQL(adoquery3.SQL.Text,true);

pero ahora me da list index out of bounds