FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Por favor necesito vuestra ayuda, no puedo arreglar esto. El código es el siguiente, probarlo a ver si a ustedes si os funciona.
procedure TForm1.LMDTrackBar1Change(Sender: TObject); begin edit3.text:=floattostr((LMDTrackbar1.position)/10); ganancia:=LMDtrackbar1.Position; procedure TForm1.Edit3Change(Sender: TObject); begin LMDTrackBar1.Position:=StrToIntDef(edit3.text, LMDTrackBar1.Position); ganancia := LMDTrackBar1.Position; end; donde ganancia es: integer porque este valor lo mando a un programa en 'C' donde allí ya lo divido por 10. Gracias de antemano. Saludos. |
|
|
|