字符串的若干问题

Question

1。判断一个字符串是否由重复的字符组成（用循环不难实现，但是不知道高手们有无更简单的方法？？？）
2。判断一个字符串是否由顺序码组成（如123456, ABCDEFG等等）
3。判断一个字符串是否由倒序码组成（如654321, GFEDCBA等等）

Answer 1

我没找到好的方法.要不用循环肯定要利用delphi定义的函数.

Answer 2

好象是用循环，主要通过对字符串的ASCII码进行判断。

Answer 3

Delphi函数归根到底也是循环吧?

Answer 4

1、2和3都只要一次循环就搞定了！！！
1、可以使用Delphi特有的集合操作，循环一次就搞定！！！
2和3比较简单。

Answer 5

感谢大家的讨论，我最后还是采用了循环，方法如下，大家看看如何：
        Result := True;
        sTemp1 := Copy(Password, 0, 1);
        for iLoop2 := 1 to Length(Password) do
        begin
          sTemp2 := Copy(Password, iLoop2, 1);
          if sTemp1 <> sTemp2 then
          begin
            Break;
          end;
          Result := False;
        end;to Delphi_Li(Delphi Li) 
  Delphi特有的集合操作???

Answer 6

1。判断一个字符串是否由重复的字符组成（用循环不难实现，但是不知道高手们有无更简单的方法？？？）
答：
procedure TForm1.Button1Click(Sender: TObject);
var
    list:TStrings;
    i:integer;
begin
    list := TStringList.Create();
    for i := 0 to 10 do
    begin
        if list.IndexOf('s')>0 then  //判断是否存在‘s’字符串
        begin
            //如果存在
        end else
        begin
            //如果不存在
        end;
    end;
end;
但内部的机制，可能还是循环了；2。判断一个字符串是否由顺序码组成（如123456, ABCDEFG等等）
答：
循环；
3。判断一个字符串是否由倒序码组成（如654321, GFEDCBA等等）
答：
循环；