Hilfe:Caesar-Verfahren

[RedDust]

Delphi-Quellcode:

IF Memo1.Lines.Count > 0 THEN 
  begin 
    FOR ZNr:= 1 TO Memo1.Lines.Count DO 
      begin 
        ZOrgText:= Memo1.Lines[ZNr - 1];
//Auslesen des Textes der in der Zeile (ZNr - 1) steht (Im Memo ist die 1. Zeile immer mit der 0 Gek.)
        IF length(ZOrgText) > 0 THEN 
          begin 
            ZVerschlText:= ''; //Leeren des Strings, da es ja mehrere Durchläufe sind 
            FOR BNr:= 1 TO length(ZOrgText) DO 
              begin 
                OrgReih:= Ord(ZOrgText[BNr]); //Umwandeln von Text in ASCII
                NeuReih:= OrgReih + SpinEdit1.Value; // ???
                ZVerschlText:= ZVerschlText + Chr(NeuReih); //Umwandeln von ASCII IN Text
              end; 
            Memo2.Lines.Add(ZVerschlText); //Inzufügen des oben erm. textes 
          end 
        ELSE 
          Memo2.Lines.Add('') //Ist die akt. Zeile leer dann wird aich eine leere hinzugef.
        end; 
      end;

Ich hab' mal versucht es einfach auszudrücken.