kleine Suchabfrage

[Uncle Cracker]

Oder eben durch Eingabe blockieren:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  if not (key in ['a'..'c','A'..'C']) then
    key:=#0;
end;