String untersuchen...

[SirThornberry]

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;