Foros Club Delphi - error bounds (0)

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)

- - error bounds (0) (https://www.clubdelphi.com/foros/showthread.php?t=29560)

error bounds (0)

Muy buen dia para todos, en un sistema que estoy realizando en el cual usos diferentes tablas, entre ellas una de Provincias y otra de Localidad, con esta dos tablas hacia una realacion Master/Deatil. estos son los campos de dicha tabla.
Provincias

Codigo_Provinica Numerior*
Numero_Provincia Texto
Descripcion_Provincia Texto

Localidad
Codigo_Localidad Numerio
Numero_Localidad Texto*
Numero_Provinica Texto
Descripcion_Provincia Texto

el error que me da es el siguiente Project Servicios.exe raised exception class Elist error with message List index out of bounds (0) Process stopped. use step or Run to continue, Los campos codigo los incremento con una rutina cuando llamo el form Provincia que inserto un registro y lo grabo se le doy a insetar otro registro es donde me da el error. espero que no comprendan

Cita:

espero que no comprendan

Supongo que quieres decir comprenden. Por otra parte he movido el tema porque no tenía nada que ver con OOP.

A primera vista el fallo puede estar en que primero estás introduciendo el detalle sin que presumiblemente tenga maestro.

Pero mejor pon el código para que así veamos en donde puede estar el fallo.

Un Saludo.

Marcos disculpa por la publicación y encuanto a lo escrito quise decir me comprendan, esta es la rutina que uso para incrementar el código.

Código:

procedure TFrm_Provincias.Tbl_ProvinciasNewRecord(DataSet: TDataSet);

begin

      if Tbl_Provincias.State = dsInsert then

      Begin

         Tbl_ProvinciasCodigo_Provincia.Value := Qry_IncrementaCodigoProvincia.Fields[0].AsInteger + 1;

         Qry_IncrementaCodigoProvincia.Close;

      end;   

end;