Ver Mensaje Individual
  #2  
Antiguo 25-04-2013
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.604
Reputación: 29
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
Cita:
Empezado por Jere_84 Ver Mensaje
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.
Responder Con Cita