Moin,
das was du vorhast, geht auch einfacher! Wie ersetzt du denn das A durch die 4 Zahlen? Dazu muss es ja irgendwie eine Zuordnungstabelle als
A <-> 1234
B <-> 2567
oder was auch immer geben. Dann kannst du auf deinen String ein simples StringReplace(str, 'A', '1234', [rfReplaceAll]) anwenden, um den Text zu "verschlüsseln".
Nun, um ihn wieder zu entschlüsseln... machst du halt genau das Umgekehrte, nämlich StringReplace(str, '1234', 'A', [rfReplaceAll]). Und schwupp hast du wieder das Original
http://www.delphibasics.co.uk/RTL.as...=StringReplace