Arreglo!!!

[MARLON1]

casimiro:

te agradezco mucho te ayuda, pero como te digo ya lo intente o nose si lo estoy declarando mal el arreglo, lo declaro asi pero aun me marca error, gracias por la ayuda

Código Delphi [-]
resultx : array[1..100] of string;

[Casimiro Notevi]

En tu código declaras 'fin' y le das el valor cero.
Luego haces un bucle 'for' desde 0 (el valor de fin) hasta 'ini', que lo sacas de aquí:

ini:= dbgrid2.DataSource.DataSet.Fields[0].Value;

¿cuánto vale esa variable 'ini'?
Luego asignas al array, en la posición 'fin' un valor.

resultx[fin]:=floattostr(Xutm)

Pues bien, como al principio has declarado el array

resultx : array[1..100] of string;

si la variable 'fin' tiene un valor menor de 1 o mayor de 100 ---> ¡¡¡crack!!!
y por supuesto, si la declaras sin tamaño... no puede hacerse eso.
Tienes varias soluciones, pero para empezar te hago una pregunta:
¿qué valores mínimo y máximo puede resultar de aquí: dbgrid2.DataSource.DataSet.Fields[0].Value

[JosepGA]

Hola MARLON1, creo que Casimiro tiene razón, no puedes asignar un valor a una posición del array que no existe, yo tambien pienso que hay tienes el problema.

Un saludo

[defcon1_es]

Como ya te han comentado, si declaras el array con un tamaño y "te pasas", te da error.

Una solución sería aumentar el tamaño del array en tiempo de ejecución,
ya que si sabes (en ejecución) el tamaño máximo de ese array.

Código Delphi [-]
dbgrid2.DataSource.DataSet.First;
SetLength(resultx, ini); // Redimensionado del array
for fin:=0 to ini do begin

[MARLON1]

Pues si ese era el error!! que el tamaño de mi arreglo lo declaraba [1..n], y mas abajo fin lo igualaba a "cero", y ps ahi tronaba , muchas gracias a todos, lo unico que tenia que hacer era lo que uds me decian declarar el tamaño de mi arreglo asi [0..n].


saludos.