welche tabelle oder zeichsatz ist der richtige??

[Binärbaum]

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