klappt nicht ganz ... die "umständliche" Variante ist eher:
Delphi-Quellcode:
function CharInSet(C: Char; const CharSet: TSysCharSet): Boolean;
begin
Result := (C <= #$00FF) and (AnsiChar(Word(C)) in CharSet);
end;
Und für diese Funktion 32 Byte für ein TSysCharSet ständig hin- und herzukopieren?
(hätt das dann eher direkt in die ganzen Abfragen eingebaut, da so Delphi dann optimieren kann)
Das wollte ich dem Code nicht antun, drum bin ich beim
ANSI geblieben.
Aber mal sehn, vielleich finde ich ja noch was "Schönes".