Cita:
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.
Código:
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'];
A_X := uno; B_Y := dos;
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; mB_Y := -B_Y; gA_Xr := A_X*3.14159265358979323846/180; gB_Yr := B_Y*3.14159265358979323846/180; mgA_Xr := -gA_Xr; mgB_Yr := -gB_Yr; 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;