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