Question

delphi如何判断两个字符串中的字符是否有交集？

有没有现成的函数，判断两个字符串中的字符是否有交集？
比如，字符串“hello”和“world”两个字符串都有'o'和'l'，则返回true；而"abcd"和"efg"两个字符串没有交集，则返回false。

Answer 1

很简单的闷纳~

函数:
function HasSameChar(str1,str2:string):boolean;
var
i,j:Integer;
blChk:Boolean;
begin
blChk:=False;
for i:=0 to Length(str1) do
begin
for j:=0 to Length(str2) do
begin
if str1[i]=str2[j] then
begin
blChk:=True;
Break;
end;
end;
if blChk then Break;
end;

Result:=blChk;
end;

调用:
var blChk:boolean;
begin
blChk:=HasSameChar('hello','world'陪罩念);
if blChk then showmessage('有交集'芦困)
else showmessage('没有交集');
end;