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