kleine Suchabfrage

[negaH]

Delphi-Quellcode:

var
  Buchstaben: set of Char;
  I: Integer;
begin
  Buchstaben := [];  
  for I := 1 to Length(Edit1.Text) do
    Include(Buchstaben, Edit1.Text[I]);
  if Buchstaben * ['a'..'c','A'..'C'] <> [] then ;
  if Buchstaben - ['a'..'c','A'..'C'] <> [] then ;
end;

Gruß Hagen