Ver Mensaje Individual
  #4  
Antiguo 08-03-2010
BrunoBsso BrunoBsso is offline
Miembro
 
Registrado: nov 2009
Ubicación: Berisso, Buenos Aires, Argentina
Posts: 239
Reputación: 15
BrunoBsso Va por buen camino
Ahhh.
Te recomiendo que no modifiques la primera, porque es de la unit system mejor dejala como la hicieron.
En todo caso, modifica tu función. Nombrala LogNat o algo similar, es más simple evitar esos problemas cambiando el nombre de tu función. No le harías mal al código.
Sino, fijate si te sirve asi (de verdad, no sé si funcionará, es una idea nnomás):
Código Delphi [-]
Function Ln(a:TComplejo):TComplejo; overload;
Var
  Z:TComplejo;
Begin
  Z.Modulo:=System.Ln(a.Modulo); //<-Incompatible type for arg no1: Got Extended, expected TCOmplejo
  Z.ArgumentoRadianes:=a.ArgumentoRadianes;
  Z.ArgumentoGrados:=RadToDeg(Z.ArgumentoRadianes);
  CalcularRectangular(Z);
  Result:=Z;
end;
Por cierto, en esta Unit tuya, te acordaste de poner a System en el uses??
Saludos!
Responder Con Cita