Einzelnen Beitrag anzeigen

andreash

Registriert seit: 22. Jun 2006
Ort: Dörverden
60 Beiträge
 
Delphi 7 Professional
 
#1

Re: TEDEEdit - Edit zur Eingabe von String, Integer oder Flo

  Alt 6. Aug 2006, 18:37
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;
Andreas
Der Optimist glaubt, wir leben in der besten aller möglichen Welten. Der Pessimist befürchtet, daß das stimmt.
  Mit Zitat antworten Zitat