Stringfilter

[Oreaden]

Wie wär es damit?

Delphi-Quellcode:

function f(s, a: string): boolean;
var
  c: char;
begin
  result := false;
  if (length(s) = 0) or (length(a) = 0) then exit;
  for c in s do
    if pos(c, a) > 0 then
    begin
      result := true;
      exit;
    end;
end;