Cita:
Empezado por Jere_84
Me sale error de memoria en esta linea
Código Delphi [-] BaseFieldTypes[i] := DataModuleCiuda.ADODataSetCiudad.Fields[i].DataType;
|
Hola Jere_84. Es muy importante poner los mensajes de error exactos para saber con más precisión de qué se trata.
Pero, según se puede ver en el código, te ha hecho falta darle un tamaño a la matriz dinámica BaseFieldTypes. Antes del ciclo
For puedes llamar al procedimiento SetLength:
Código Delphi
[-]SetLength (BaseFieldTypes, DataModuleCiuda.ADODataSetCiudad.FieldCount);
Y tras finalizar el ciclo For, conviene que ajustes su tamaño a la cantidad de elementos que hayan sido asignados:
Código Delphi
[-]SetLength (BaseFieldTypes, X);
Donde "X" podría ser una variable que lleve la cuenta de las veces que entra el programa a ese
If.
Saludos.
Al González.