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;