Hallo,
wir haben wieder eine Frage an euch:
Wir haben eine Comboxbox und zwei Editfelder über die wir eine Containerbezeichnung hinzufügen wollen.
Im zweiten Edit-Feld soll eine vierstellige Zahlen- und Buchstabenkombination eingegeben werden. Die Eingabebeschränkungen haben wir soweit hinbekommen aber manche Kombinationen funktionieren trotzdem nicht..
wie z.B 25G3. G kann mit den Zahlen 0,1,2 und 3 kombiniert werden, es lassen aber nur die Zahlen von 0-2 eingeben.
Delphi-Quellcode:
if (key in ['G']) and
(EditISOCode.SelStart = 2) then
begin
Statusbar.SimpleText := 'Mit G können Sie nur die Zahlen 0,1,2 und 3 kombinieren, sonst ungültige Containerbezeichnung!';
end;
if not (key in [#8,'0'..'3']) and
(EditISOCode.SelStart =3) then
begin
Key:= #0;
end;
Dieser Quellcode bezieht sich jetzt nur auf das 3. und 4.Zeichen.
Vielen Danke für eure Hilfe!
Liebe Grüße
