Convertir un integer en Real osea IntToReal
 

Hola amigos del club!!!

Pues he visto que aqui si saben mucho de Delphi, asi que les pido su ayuda para convertir un integer a Real. les explico si ...
var
ct, st:real;
g:integer;
begin
g:= form5.grad;------>aqui recibo el entero que el usuario quiere de un TrackBar

//y necesito que --> g <--- sea real para pasarlo al cos y el sin
ct:=cos(g); st:=sin(g);

P/E si paso el valor de g directo del TrackBar suponiendo que g:=45 obtengo que ct=1 y st=0; obvio estos valores no me sirven.

Lo que yo quiero obtener es ct=0.525321988 y st=0.850903524 osea necesito convertir g:integer; a real;

un campañero (Black_Ocean) del foro me paso este codigo:
function IntToReal(num: integer): string;var aux: Extended;begin aux := StrToFloat(IntToStr(num)); result := Format('%f', [aux]);end;procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage(IntToReal(3));end;pero no funciona:( Ojala alguien me pueda ayudar!!!!!! :o

Gracias.

Para pasar un entero a un real, sólo tienes que multiplicarlo por 1.0:

Código Delphi [-]
  ct := cos(g * 1.0);

De todas maneras, creo que el error lo tienes en que estás usando el cos y el sin con grados sexagesimales, pero en delphi el cos y el sin funcionan con radianes. Así que tendrás que hacer algo así:

Código Delphi [-]
  ct := cos(2.0 * PI * g / 360.0);

Gracias!!
 

Aun no pruebo lo que me enviaste pero te lo agradesco infinitamente!!! espero funcione!!!:D