功能：查找两个字符串有没有相同的部分

最新推荐文章于 2024-03-25 09:20:44 发布

转载最新推荐文章于 2024-03-25 09:20:44 发布 · 2.5k 阅读

Delphi 专栏收录该内容

79 篇文章

订阅专栏

本文介绍了一个简单的Pascal函数，用于检查两个字符串是否包含相同的子串。通过遍历第一个字符串并检查其每个字符是否出现在第二个字符串中来实现。如果发现匹配，则进一步比较后续字符以确定最长的共享子串。

function SearchInStrings(const Str1,Str2 : string) : Boolean;
{ ----功能：查找两个字符串有没有相同的部分----- }
var
S1,S2 : string;
I : integer;
Found : boolean;
begin
S1 := Str1;
S2 := Str2;
Found := false;
for I := 1 to Length(S1) do //先找到第一个相同的字符
    if (Pos(S1[I], S2)>0) then
       begin
       Found := true;
       Break;
       end;
if Found then
     begin
     S2 := Copy(S2, Pos(S1[I],S2), MaxInt);
     S1 := Copy(S1, I, MaxInt);
     for I := 1 to Math.Min(Length(S1),Length(S2)) do
         if (S1[I] <> S2[I]) then break;
     result := True;//Copy(S1, 1, I-1);//相同的内容
     end else Result:=False;// := '没找到任何相同的内容';
end;