Forum: Datenbanken
Delphi
by Hansa,
11. Okt 2004
Bei meinem Beispiel ist es aber nun erst gar nicht mehr möglich überhaupt 2 Kommas einzugeben !! Soll ich etwas überprüfen, was gar nicht vorkommen kann ? :shock:
Und wenn ich schon dabei bin: mit dem Kontextmenü könnte man den Code tatsächlich überlisten, aber zu diesem Zweck noch jedes normale Zeichen abzuprüfen, für so einen seltenen Fall ?? Will man das auch noch abfangen, so müßte man...
Forum: Datenbanken
Delphi
by Hansa,
9. Okt 2004
ZulZeichen sind alle die, die du willst, also z.B. sonst notfalls nichts. Ist im Constructor eingestellt. Decimalseparator ist vordefiniert -> F1 :!: Das ganze ist aber ohne Gewähr. Bin mir nicht sicher, ob ich da nicht doch noch eine andere Prozedur zusätzlich verwenden mußte.
Forum: Datenbanken
Delphi
by Hansa,
9. Okt 2004
So geht das :
Benutze am besten das OnKeyPress.
procedure TRealEdit.KeyPress(var Key: Char);
begin
inherited;
if Pos(DecimalSeparator, Text) = 0 then // einen . im RealEdit.text zulassen
ZulZeichen := ZulZeichen +
else