Zitat von
Harry M.:
also eine lösung wie ich ganz zu anfang hatte... jetzt muß ich ja wieder alles umschreiben 127 zeichen mal 2 funktionen = 254 !!! kotz !!! trozdem danke für die hilfe
Naja, man könnte das noch etwas anders machen: man speichert in einem Array die Verschlüsselung für jedes Zeichen und greift dann beim Ver-/ Entschlüsseln auf den Array zu.
Delphi-Quellcode:
const
codetable: array [0..255] of string[3]
= ( 'abc', 'qwe', 'wel', 'was', ..... );
...
{Statt
case OrginalTextMemo.Text[I] of
//...
#58 : ZEICHEN := '23z'; // : Doppelpunkt
#59 : ZEICHEN := 'uuj'; // ; Semikolon
#60 : ZEICHEN := '1xq'; // < Kleiner-als-Zeichen
//...
end;
Schreibt man: }
ZEICHEN:= codetable[Ord(OrginalTextMemo.Text[I])];
Vorteil ist, dass man die Tabelle auch beim Dekodieren verwenden kann.
MfG
Binärbaum