字符串比较棘手的有关问题，求delphi写的函数

字符串比较棘手的问题，求delphi写的函数
例如：有一个未知的字符串，要求：求出字符串中连续出现字符的长度
例如输入字符串“11122222333”，函数返回的结果是5
[解决办法]

function GetRepStrMax(Const S : String) : integer;
var
  i , n : integer;
  P : PChar;
  LC : Char;
begin
  Result := 0;
  P := Pointer(S);
  if S<>'' then begin
    LC := P^;
    n := 0;
    for i:=0 to Length(S)-1 do begin
      if P[i]=LC then inc(n)
      else begin
        if n>Result then Result := n;
        LC := P[i];
        n := 1;
      end;
    end;
  end;
end;