Eingabe in tEdit beschränken

[hummer]

Hallo

die procedure, die verhindert, dass man in ein edit Feld was anderes als Zahlen eingibt habe ich im Forum schon gefunden.

Delphi-Quellcode:

  if not (Key in ['0'..'9', #8]) then
  Key := #0;

Jetzt möchte ich aber noch die Eingabe eines Minuszeichen erlauben. Ein Minuszeichen darf nur einmal eingegeben werden. Auch wenn im Edit Feld schon Zahlen stehen und man drückt das Minuszeichen soll das Minuszeichen am Anfang des Terms geschrieben werden. Betätigt man öfter als ein mal das Minuszeichen soll es wieder entfert oder hinzugefügt werden.

Ich hab aber keine Ahnung wie ich das lösen soll.

Hoffe mein Problem ist nicht zu unverständlich beschrieben.