hab das bissl probiert und bei meinen testfällen hats geklappt... Kann aber sein in dem Source is noch nen fehler oder sowas drin
Delphi-Quellcode:
function isdrin(bigone: String; littleone: String; mingleich: Integer; casesensitiv: Boolean = False): Boolean;
var wdh1: Integer;
begin
if casesensitiv then
begin
bigone := lowercase(bigone);
littleone := lowercase(littleone);
end;
result := False;
wdh1 := 1;
while (wdh1 + mingleich - 1 <= length(littleone)) and (result = False) do
begin
if pos(copy(littleone,wdh1, mingleich), bigone) > 0 then result := True;
wdh1 := wdh1 + 1
end;
end;