CaseCorrection d. Permutataion / BruteForce d. 2. Dimension

[Flocke]

Zitat von Harry M.:

Ich nehme an der "Mod" Operator "verrechnet" im wahrsten Sinne de Worts die 2. Spalte aus der Beispiel Matix.

Der Operator mod liefert Werte zwischen 0 und Length(Astr)-1, du brauchst aber Werte zwischen 1 und Length(Astr).

Also:

Delphi-Quellcode:

  if ACharToCase > Length(AStr) then
    ACharToCase := 1 + (ACharToCase - 1) mod Length(Astr);