Agregar texto en primera fila de TStringrid

[Casimiro Noteví]

Empezado por compuin

algun comentarios de parte de algun programador senior ?

Yo soy un novato, pero el problema es que no puedes hacer cálculos con variables "string".

Y te recuerdo nuevamente nuestra guía de estilo

[Casimiro Noteví]

Combino ambos temas porque a fin de cuentas es lo mismo.

Por favor, compuin, párate un momento a pensar lo que realmente necesitas y luego con las ideas claras, continua.
Porque de esta manera te estás haciendo un lio tremendo y no vas a solucionar nada.

[compuin]

Empezado por Casimiro Notevi

Yo soy un novato, pero el problema es que no puedes hacer cálculos con variables "string".

Y te recuerdo nuevamente nuestra guía de estilo

Me disculpo por lo de la guia de estilos.

En la adicion parece funciona pero en las demas operaciones no (resta, division, multiplicacion )

[Casimiro Noteví]

Pon aquí tu código.

[compuin]

Empezado por Casimiro Notevi

Pon aquí tu código.

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;

[compuin]

Olvide agregar

Código Delphi [-]
ascmc  : array[0..9] of double;
                          xx     : Array[0..5] of double;

[Casimiro Noteví]

Mejor borras todo y empiezas de nuevo con los consejos que te han dado.

Tienes que ir paso a paso, y no avanzar al siguiente hasta tener perfecto el paso actual.
Primero de todo la función de cálculo de grados.
Cuando tenga eso totalmente perfecto, entonces empiezas a pasar los datos a grid.
Cuando tengas perfecto los datos en el grid, entonces empiezas a "dejarlo bonito".

[[escafandra]]

En lo referente al tema del cambio de fuente, dejo este código orientativo en el que la fuente se cambia para la primera columna del grid desde la fila 1. Solo se cambia para los dos caracteres que aparezcan después del primer espacio aparecido en la celda:

Código Delphi [-]
procedure PrintText(Canvas: TCanvas; Text: String; Rect: TRect);
var
  OldAlign: cardinal;
  FName: String;
  n: integer;
begin
  InflateRect(Rect, -1, -1);
  Canvas.FillRect(Rect);
  OldAlign:= SetTextAlign(Canvas.Handle, TA_UPDATECP or TA_RIGHT);
  MoveToEx(Canvas.Handle, Rect.Right, Rect.Top, nil);
  FName:= Canvas.Font.Name;
  Canvas.Brush.Style:= bsClear;
  n:= Pos(' ', Text)+1;
  TextOut(Canvas.Handle, 0, 0, PCHAR(Copy(Text, n+2, Length(Text)-n-2)), Length(Text)-n-2);
  Canvas.Font.Name:= 'Ravie';
  TextOut(Canvas.Handle, 0, 0, PCHAR(Copy(Text, n, 2)), 2);
  Canvas.Font.Name:= FName;
  TextOut(Canvas.Handle, 0, 0, PCHAR(Copy(Text, 0, n-1)), n-1);
  SetTextAlign(Canvas.Handle, OldAlign);
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Alin: integer;
begin
  with Sender as TStringGrid do
  begin
    if ARow = 0 then
       Alin:= DT_CENTER
    else
       Alin:= DT_RIGHT;

    InflateRect(Rect, -1, -1);
    Canvas.FillRect(Rect);
    InflateRect(Rect, -3, -3);
    if (ACol = 1) and (ARow <> 0) then
      PrintText(Canvas, Cells[ACol, ARow], Rect)
    else
      DrawText(Canvas.Handle, PAnsiChar(Cells[ACol, ARow]), Length(Cells[ACol, ARow]), Rect,
        Alin or DT_VCENTER or DT_SINGLELINE);
  end;
end;

Saludos.