Einzelnen Beitrag anzeigen

Benutzerbild von Binärbaum
Binärbaum

Registriert seit: 19. Jan 2005
Ort: Elstra
764 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: welche tabelle oder zeichsatz ist der richtige??

  Alt 6. Apr 2005, 00:06
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
There are exactly 10 kinds of people: those who understand binary, and those who don't.
---
"Software reift beim Kunden. Bei Hardware ist es anders: Hardware fault beim Kunden." - Rainer G. Spallek
  Mit Zitat antworten Zitat