upDown-Button mit float-Werten

[marabu]

Zitat von LokutusvB:

Geht das dann ganz einfach mit der Textfunktion des Edit-Feldes oder muß ich da noch mehr beachten?

Nein - du musst die Eigenschaft Position des UpDown-Controls mit diesem Wert belegen:

Delphi-Quellcode:

function Before(const s, subStr: String): String;
var
  i: Integer;
begin
  i := Pos(subStr, S);
  if i = 0
    then Result := S
    else Result := Copy(S, 1, Pred(i));
end; 

const
  DEFAULT_WATT = 1.7;

procedure Initialize(UpDown: TUpDown; const startValue: String);
var
  d: Double;
begin
  // startValue := '2,4 W'; // eingelesener Wert
  if not TryStrToFloat(Before(startValue, ' '), d) then
    d := DEFAULT_WATT;
  with UpDown do
    // Eine Dezimalstelle, deshalb mal 10
    Position := Round(10 * d);
end;

Getippt und nicht getestet.

marabu