Doppelte Zeichen auslesen

[smart]

Hallo Alle!

Gibt es unter Delphi eine Funktion mit der man doppelte Zeichen in einem String auslesen kann und als Ausgabe die Anzahl der Doppelten Zeichen bekommt?

Gruß
Heike

[mkinzler]

Sollen die Zeichen direkt aufeinander folgen?

[smart]

Zitat:

Zitat von mkinzler

Sollen die Zeichen direkt aufeinander folgen?

Ja, wenn z.B. in einem String "BAAAAA" steht, soll als Ergebnis, wenn ich "A" abfrage, 5 rauskommen.

Gruß
Heike

[Klaus01]

Hallo Heike,

habe ich in dem Thread gefunden: http://groups.google.de/group/de.com...9aac509740022a

Delphi-Quellcode:

Result := Length(S) - Length(StringReplace(S, Ch, '', [rfReplaceAll]));

wobei ch Dein gesuchter Buchstabe ist.
Grüße
Klaus

[smart]

Zitat:

Zitat von Klaus01

Delphi-Quellcode:

Result := Length(S) - Length(StringReplace(S, Ch, '', [rfReplaceAll]));

Vielen Dank, Klaus!

Genau daruf bin ich nicht gekommen ;-)

Gruß
Heike

[mkinzler]

da ich mir jetzt so ne Mühe gemacht habe ne Funktion zu Schreiben, poste ich sie jetzt trotzdem, obwohl sie nicht halb so elegant, wie die von Klaus01 ist.

Delphi-Quellcode:

function Kette( s:string; c: string; o:integer): Integer;
var
    i, cnt, cnt2: Integer;
begin
  cnt := 0; i:=0;
  i := Posex( c, s, o);
  while (i < length(s)) and (i > 0) do
  begin
     Inc( cnt);
     if s[i+1] = s[i] then
     begin
          inc(i);
     end
     else
        Break;
  end;
  if (i < Length( s)) and (i > 0) then
  begin
    cnt2 := Kette( s, c, i+1);
    if cnt2 > cnt then cnt := cnt2+1;
    
  end;

  Result := cnt;
end;

[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;

[himitsu]

AABBAABA ergibt sogar 5, was ebenfalls falsch ist.

möglich wäre höchstens noch sowas,

Delphi-Quellcode:

Result := Length(S) - Length(StringReplace(S, Ch + Ch, Ch, [rfReplaceAll]));

wobei man dieses auch wieder in 'ner Schleife durchgehen müßte, da StringReplace das Ersetzungsergebnis nicht wieder in den nächsten Suchvorgang mit einbezieht:

Delphi-Quellcode:

Temp := S;
Repeat
  Temp2 := Temp;
  Temp := StringReplace(Temp, Ch + Ch, Ch, [rfReplaceAll]));
Until Temp = Temp2;
Result := Length(S) - Length(Temp);

wobei ich dennoch einen Code empfehlen würde, wo der String nicht (intern) verändert wird ... unnötige String-/Speicheroperationen müssen ja nicht sein. :angel: