In Set or Not in Set? Frage zu Set.

[Elvis]

Zitat von Go2EITS:

Delphi-Quellcode:

Function IsOk(Ch:Char):Boolean;
TYPE
  TIntSet = set of char;
VAR
 Set1:TIntSet;
begin
Set1:=

if ch in set1 
   then
     begin
     Result:=true;
     Exit;
     end
   else
     Result:=False;

end;//Function IsOK

urrkks... Wo hast du denn den Code her?
Warum nicht einfach so?

Delphi-Quellcode:

function IsBlablaChar(const c : Char) : Boolean;
begin
  result := not (c in [#1..#128, #228, #246, #252, #196, #214, #220, #223]);
end;