kommentarr

**safak67**

Hi,
ich hab eine frage.. Wollte wissen was dieser Text macht, also was hat das zu bedeuten..

Delphi-Quellcode:

			rocedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

  if not (Key in ['0'..'9', DecimalSeparator, ThousandSeparator, Char(VK_BACK)]) then

    Key := #0;

end;

**Nersgatt**

Wenn die gedrückte Taste nicht in der Aufzählung ist, wird sie verworfen.

**mkinzler**

Es überprüft, ob der eigegebene Char erlaubt ist. Wenn nicht verwirft er ihn ( Eingabe wird nicht im Edit sichtbar)

kommentarr

kommentarr

Re: kommentarr

Re: kommentarr

Forumregeln

safak67 Registriert seit: 22. Mär 2009 87 Beiträge	#1 kommentarr 2. Jun 2009, 13:13 Hi, ich hab eine frage.. Wollte wissen was dieser Text macht, also was hat das zu bedeuten.. markieren Delphi-Quellcode: rocedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0'..'9', DecimalSeparator, ThousandSeparator, Char(VK_BACK)]) then Key := #0; end;
	Zitat

Nersgatt Registriert seit: 12. Sep 2008 Ort: Emlichheim 693 Beiträge Delphi 10.1 Berlin Professional	#2 Re: kommentarr 2. Jun 2009, 13:17 Wenn die gedrückte Taste nicht in der Aufzählung ist, wird sie verworfen. Jens
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.858 Beiträge Delphi 11 Alexandria	#3 Re: kommentarr 2. Jun 2009, 13:18 Es überprüft, ob der eigegebene Char erlaubt ist. Wenn nicht verwirft er ihn ( Eingabe wird nicht im Edit sichtbar) Markus Kinzler
	Zitat