Registriert seit: 22. Jun 2006
Ort: Dörverden
60 Beiträge
Delphi 7 Professional
|
Re: TEDEEdit - Edit zur Eingabe von String, Integer oder Flo
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.
|