TEDEEdit - Edit zur Eingabe von String, Integer oder Float

[andreash]

Hallo,

wie wär's, wenn du den inkonsistenten Zustand durch eine Zugriffsfunktion für die Eigenschaft InputTyp beseitigst. So in der Art:

Delphi-Quellcode:

procedure TEDEEdit.SetVIT(const Value: TInputtypes);
Var
  rTest: Extended;
begin
  If VIT <> Value Then
  Begin
   If Value = InpInteger Then
     Text := IntToStr(StrToIntDef(Text, 0))
   Else
   If Value = Inpfloat Then
   Begin
    If Not TryStrToFloat(Text, rTest) Then
      Text := '0'
   End;
   VIT := Value;
  End;
end;