Doppelte Zeichen auslesen

[glkgereon]

Ich möchte noch drauf hinweisen das Klaus01's Methode nicht das macht was gefragt war.

wenn zB auf 'AABBAA' mit 'A' abgefragt wird, antwortet seine 4...dabei sind nur jeweils 2 direkt hintereinander.

dafür würde ich soetwas nehmen:

Delphi-Quellcode:

function FindChain(S: String; C: Char): Integer;
var ID, Cnt: Integer;
begin
  Result:=0;
  ID:=1;
  Cnt:=0;
  while (ID>0) and (ID<=Length(S)) do
    begin
    if S[ID]=C then
      begin
      Inc(ID);            
      Inc(Cnt);
      end
    else
      begin
      if Cnt>Result then Result:=Cnt;
      Cnt:=0;
      ID:=PosEx(C,S,ID);
      end;    
    end;
end;