If not Key in oder if key in

Computer: Software & Programmierung Delphi & Pascal
#1

Hallöchen,

was ist eigtl. einfacher alle Zahlen und alle möglichen Zeichen oder das Alphabet mit nur einigen Zeichen mit KeyPress abzufangen?

Gibt es die fortlaufenden Punkte in (0…9) auch für das Alphabet?

Danke und Gruß
CherryDip

#2

wie üblich…
Hallo,

… kommt es drauf an, was Du machen willst.
Ich würde die Menge (das Set) möglichst klein halten. Typisch ist zB das hier:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in ['0'..'9',#8,#13]) then key := #0;
end;

um nur Zahlen zuzulassen.
Natürlich geht auch sowas (nur Buchstaben):

 if not (key in ['A'..'Z','a'..'z',#8,#13]) then key := #0;

Dabei hast du aber das Problem, dass Du dann die Umlaute und ‚ß‘ noch zusätzlich einfügen musst.

Gruß, Niels

#3

Hi Niels,

das mit dem genauen code war mir schon klar nur nicht ob das „‚A‘…‚Z‘“ im

if not (key in [‚A‘…‚Z‘,‚a‘…‚z‘,#8,#13]) then key := #0;

möglich ist, da bei mir das nicht funktionierte - ich probiers halt nochmal!

Dabei hast du aber das Problem, dass Du dann die Umlaute und
‚ß‘ noch zusätzlich einfügen musst.

Und die sollen halt nicht möglich sein… Nur ABC, Back und der Unterstrich!

Danke Dir

CherryDip