Maskeditfeld Anzahl der Stellen vor dem Komma prüfen

[superstar025]

Das Maskedit feld hat keine Editmaske und ist mit dem Text 000,000 vordefiniert.

Der on Exit Befehl ist

Delphi-Quellcode:

//Dezimalstelle wird auf 3 Stellen hinters Komma getrennt bzw. gerundet.//
try
    Maskedit1.Text := Format('%-.3f', [StrToFloat(Maskedit1.Text)])
  except
    Maskedit1.SetFocus;
  end
end;

mfg
superstar025