@Fischli:
dein CharInString sieht aber mehr nach "besteht String nur aus diesen Chars" aus.
Aber so wie ich das verstanden hab, will er wissen, ob einer der Chars in dem String ist
Code:
function CharInString(aString: string; achars: TCharSet): boolean;
var
ndx: integer;
begin
Result := [color=red]False[/color];
for ndx := 1 to Length(aString) do
begin
if [color=red]aString[ndx] in achars[/color] then
begin
Result := [color=red]True[/color];
exit;
end;
end;
end;
@leedl
man kann ja das Pos auch mit mehreren Chars durchfüren und wenn eines davon > 0 ausgibt, dann ist eines der Zeichen vorhanden.