Arreglo!!!

[MARLON1]

Empezado por Casimiro Notevi

Hola, MARLON1, por favor, pon títulos descriptivos a los temas para saber de qué trata, ya que luego a la hora de buscar no sirve de nada a nadie que quiera encontrar algo sobre el mismo tema, te recomiendo que leas la guía de estilo de clubdelphi, gracias.

En cuanto a tu pregunta, está el código un poco "lioso" con variables que no se saben de donde vienen ni qué son, pero de todas formas, me parece que te olvidaste de declarar el tamaño del array.

resultx: array [xxx] of string;

QUE TAL CASIMIRO:

YA TRATE DECLARANDO EL TAMAÑO DEL ARREGLO PERO AUN ASI SIGUE EL PROBLEMA, PERO MUCHAS GRACIAS DE TODAS FORMAS, NO PUSE EL CODIGO COMPLETO POR QUE PENSE KE SERIA MAS ENREDO, PERO AHORA LO PONGO IGUAL Y SIRVE DE MAS AYUDA.

Código Delphi [-]
var
uno,dos,ttotal,total,A_X,B_Y,Ema,eme,emac,emec,rest,rauz,e1,e2,e2c,c1,alpha1,mA_X,mB_Y,gA_Xr,gB_Yr,m  gA_Xr,mgB_Yr,Huso,Lo,pi,pid,DeL,A,E,N,cose2,V,C2,A1,A2,J2,J4,J6,ALPHA,alp1,BETHA,alp2,alp3,GAMMA,Bo,  Xutm,Yutm :real;
raizc,Xut,Yut:real;
inc,ino,ini,fin: integer;
resultx : array of string;
begin
QUERY2.Close;
QUERY2.SQL.Clear;
QUERY2.SQL.Add('SELECT *FROM DATOS WHERE MAQUINA=:MAQ && DR= && MODULO=:MO && DIA=I && MES=:ME && ANO=:AN');
QUERY2.ParamByName('MAQ').Value:=EDIT1.Text;
QUERY2.ParamByName('D').Value:=EDIT2.Text;
QUERY2.ParamByName('MO').Value:=EDIT3.Text;
QUERY2.ParamByName('DI').Value:=EDIT4.Text;
QUERY2.ParamByName('ME').Value:=EDIT5.Text;
QUERY2.ParamByName('AN').Value:=EDIT6.Text;
QUERY2.Open;
dbgrid2.DataSource.DataSet.First;
ini:= dbgrid2.DataSource.DataSet.Fields[0].Value;

  fin:=0;
  inc:=0;
dbgrid2.DataSource.DataSet.First;
for fin:=0 to ini do begin

 uno:=dbgrid2.DataSource.DataSet.FieldValues['x'];
 dos:=dbgrid2.DataSource.DataSet.FieldValues['y'];
  //grados decimales
        A_X :=  uno; // w
        B_Y :=  dos; // N

     Ema := 6378388.000000;
      eme := 6356911.946130;
  emac:= Ema * Ema;
  emec:= eme * eme;
  rest:= emac - emec;
  rauz:= sqrt(rest);
    e1  := rauz/ Ema;
    e2  := rauz / eme;
    e2c := e2 * e2;
    c1   := Ema*Ema/eme;
  alpha1 := (Ema-eme)/Ema;
      mA_X := -A_X; // w
        mB_Y := -B_Y; // N
  //Convertirgrados rad
  gA_Xr := A_X*3.14159265358979323846/180; // w
        gB_Yr := B_Y*3.14159265358979323846/180; // N
  mgA_Xr := -gA_Xr; // w
    mgB_Yr := -gB_Yr; // N
    Huso := floor(mA_X/6+31);
  Lo   := Huso*6-183;
  pi:= Lo* 3.14159265358979323846;
  pid:= pi /180;
    DeL := mgA_Xr - pid;
  A  := cos(gB_Yr)*sin(DeL);
  E  := 1/2* ln(((1+A)/(1-A)));
    N  := arctan(tan(gB_Yr)/cos(DeL)) - gB_Yr;
  cose2 := cos(gB_Yr)*cos(gB_Yr);
  V  := c1* 0.9996/((1+e2c*cose2))*1/2;
  C2  := e2c/2 * $E*$E * cos(gB_Yr)*cos(gB_Yr);
  A1  := sin(2*gB_Yr);
  A2  := A1* cos(gB_Yr)*cos(gB_Yr);
    J2  := gB_Yr + A1/2;
  J4  := (3*J2 +A2)/4;
  J6  := (5*J4 +A2*cos(gB_Yr)*cos(gB_Yr))/3;
  ALPHA := 0.75 * $e2c;
  alp1:= ALPHA * ALPHA;
  BETHA:= 1.6666666666666666666666666666667 * alp1 ;
  alp2:= ALPHA * ALPHA;
  alp3:= alp2 * ALPHA;

  GAMMA := 1.2962962962962962962962962962963 * alp3;
    Bo  := 0.9996 * c1 * (gB_Yr-((ALPHA * J2) + BETHA )*( J4 - GAMMA ) * J6 );
 
  Xutm := E*V*(1+C2/3)+500000;
  Yutm := N*V*(1+C2)+Bo;
    Listbox2.Items.Add(FloatToStr(Xutm));
    Listbox3.Items.Add(FloatToStr(Yutm));
      resultx[fin]:=FloatToStr(Xutm);  -----------------------AKI ESTA EL ERROR
    dbgrid2.DataSource.DataSet.Next;
 end;
end;