Kleine Übung, finde Fehler jedoch nicht :<

[sirius]

Zitat von Klaus01:

Hallo,

was heißt denn "funktionert nicht"?
Entspricht die Verschlüsselung nicht dem was Du erwartet hast?
Kommt der KlarText wieder heraus?

Grüße
Klaus

Ersteres, denn

Delphi-Quellcode:

For i:=1 To length (code) 
DO  code[i]:=chr(ord(orginal[i])+3);

Code ist eine globale Varibale und erstmal leer. Und wenn dies alles vom Programm ist, dann wird diese Schleife nie durchlaufen. Du meinst wohl "length(original)"


Edit: Vielleicht solltest du die beiden strings auch besser lokal anlegen. Du brauchst sie ja in anderen Methoden nicht. Ansonsten prüfe, ob du sie als Felder in das Formular geben kannst (private Deklarationen)