FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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!!!!!! Gracias. |
#2
|
|||
|
|||
Para pasar un entero a un real, sólo tienes que multiplicarlo por 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í:
__________________
Saludos. |
#3
|
|||
|
|||
Gracias!!
Aun no pruebo lo que me enviaste pero te lo agradesco infinitamente!!! espero funcione!!!
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
¿Cómo convertir de word a integer? | bluegene | Varios | 16 | 19-03-2007 22:31:18 |
convertir un integer en hh:mm:ss | jmlifi | SQL | 1 | 02-11-2005 18:00:44 |
Convertir un String a Integer | Rafe | Varios | 2 | 12-08-2005 17:43:38 |
convertir a integer | acrophet | Varios | 1 | 03-11-2003 12:01:43 |
Convertir una Variable de String a Integer y Viceversa. | aleidania | Varios | 1 | 13-07-2003 16:35:37 |
|