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.