TUpDown: Floats

[toms]

Hallo,

Das sollte schon funktionieren, forausgesetzt, im Edit2 steht anfangs ein gültiger Float Wert.

Damit du den Wert nicht umwandeln musst, könntest du es auch etwa so machen:

Delphi-Quellcode:

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
{$J+}const
  Value: Real = 0; // Anfangswert
{$J-}
begin
  case Button of
    btNext: Value := Value + 0.1;
    btPrev: Value := Value - 0.1;
  end;
  Edit2.Text := FloatToStrF(Value, ffNumber, 1, 1);
end;