InputBox Eingabe beschränken ?

[smart]

Hallo Alle!

Ich möchte eine InputBox auf die Eingabe von 2 Buchstaben ( K und G ) einschränken. Muss ich jetzt mit eine Schleife alle Möglichkeiten durchgehen oder gibt es da einen Trick?

[DeddyH]

IMHO ist das die falsche Wahl der Mittel. Evtl. wäre eine ComboBox oder eine Radiogroup hier besser geeignet.

[smart]

Sorry, ich habe da etwas vergessen, in der InputBox sollen alle Zahlen aber nur zwei Buchstaben eingegeben dürfen.

[DeddyH]

Das wird mit der InputBox wahrscheinlich nicht zu machen sein, aber man kann sich ja selbst schnell so ein Formular zusammenbasteln.

[smart]

ja, aber eine Abfrage muss ich da ja auch einbauen. Ob Edit oder InputBox ist egal. Die Frage ist, ob ich bei der Abfrage alle Möglichkeiten durchgehen muss oder eine einfachere Möglichkeit gibt.

[jobo]

z.B. OnKeyPress
durch diese Funktion schleusen und das Ergebnis nur verwenden, wenn es Dir in den Kram passt.

Delphi-Quellcode:

function StripAlphaChars(pStr:String):String ;
Var x : Integer;
begin
  result := '';
  For x:= 1 to length(pStr) do
    if pStr[x] in  ['0'..'9'] then result := result +pStr[x];
end;

Die "2 Buchstaben" fehlen noch in der Funktion.