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)