Código Delphi [-]DA, t, w : string; { Coordenadas Ecuatoriales } t:= AngleToStr(xx[0]); //Ascension Recta { ARMC } ARMC := ascmc[2] ; w := AngleToStr(ARMC); DM := t - w; StringGrid1.Cells[4,i+1] := ' ' +DM;
DA, t, w : string; { Coordenadas Ecuatoriales } t:= AngleToStr(xx[0]); //Ascension Recta { ARMC } ARMC := ascmc[2] ; w := AngleToStr(ARMC); DM := t - w; StringGrid1.Cells[4,i+1] := ' ' +DM;