请问怎样判断一个字符串中有相同的字符

Question

function Pos(Substr: string; S: string): Integer;

Answer 1

不好意思，我没说清楚，我不是这个意思
我的意思是怎样判断一个串中是否有两个以上相同的字符
如:aagd   有两个 a
   acbdc  有两个  c
   abc  没有

Answer 2

function f(mStr: string): Boolean;
var
  I: Integer;
  S: TSysCharSet;
begin
  S := [];
  Result := False;
  for I := 1 to Length(mStr) do begin
    if mStr[I] in S then begin
      Result := True;
      Break;
    end;
    Include(S, mStr[I]);
  end;
end; { StrToSet }procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if f(Edit1.Text) then ShowMessage('yes');
end;

Answer 3

function f(mStr: string): string; { 排除相同字符 }
var
  I: Integer;
begin
  Result := mStr;
  for I := Length(Result) downto 1 do
    if Pos(Result[I], Result) <> I then
      Delete(Result, I, 1);
end;procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if Edit1.Text <> f(Edit1.Text) then ShowMessage('yes');
end;

Answer 4

谢谢zswang(伴水)(被黑中)，还是你最好办法，每次都只有你能帮我，
不过怎么这么久了还黑呢。还没转运呀，呵呵