Abfragen

[Catbytes]

Zitat von r2c2:

2.) nicht Zahl-Zeichen abfangen(turboPASCAL) Das würde ich dann aber noch etwas verbessern:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  ... 
  if not (Key in ['0'..'9', '.', ',', #8 ]) then 
  begin
    Beep;
    Key := #0;
  end;
  ... 
end;

"Key" ist vom Typ "Word". Richtigerweise moniert Delphi dann:
"[Fehler] Unit1.pas(30): Inkompatible Typen: 'Word' und 'Char'"