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!!!!!!
Gracias.