Redundanz im String erkennen

[crovex666]

Hallo Leute,
ich habe ein kleines Problem:

Delphi-Quellcode:

For K := 1 to length(Str) do
      For L := 1 to (length(Str)-1) do
          If redundanz[K] = redundanz[L+1] then
            boolRedundanz := True;
  If boolRedundanz = true then
      mmoTipps.Lines.Add('Redundanz tritt im Passswort ein');

In meinem Programm gebe ich z.B. d3f ein und dennoch sagt mir mein Memo, dass Redundanz(Buchstaben Wiederholung) auftritt.
Um die Buchstaben in 'redundanz[]' zu bekommen, gehe ich die Buchstaben mit PosEx durch.

Delphi-Quellcode:

For I := 1 to Length(Str) do
      For J := 1 to Length(KleineBuchstaben) do
        If PosEx(Copy(KleineBuchstaben, J, 1), Copy(Str, I, 1)) <> 0 then
            redundanz[I] := Copy(Str, I, 1);

Ich bin mit F7 durchgegangen, finde den Fehler aber nicht.

[Sharky]

Hai crovex666,

ich habe jetzt gerade kein Delphi zur Hand. Aber ich würde das anders machen.

Eine Repeat-Until-Schleife, eine Zählervariable und eine boolean.
Zähler auf 1 und Boolean auf False. Jetzt prüfst Du in der Schleife ob string[i] = string[i+1] ist. Wenn ja boolean := true. Dann die Zählervariable um eines erhöhen.
Die Abbruchbedingung der Schleife wäre dann Until (zähler = stringlänge) oder boolean

[crovex666]

:-D Danke, es geht :)