ganz einfache Verschlüsselung von einem Memo Text

[Cicaro]

Also ersteinmal - weil es doch mit Leer- und Sonderzeichen gemacht werden soll - würde ich eine Extra-Funktion für die Caesar-Verschlüsselung definieren und mit einer case-Anweisung arbeiten.

Delphi-Quellcode:

function ZeichenCaesarVerschluesselt(Ch:Char):Char;
begin
  case Ch of
    'A'..'Z','a'..'z':; // hier die Verschlüsselung
    ' '{,andere Sonderzeichen}:; // hier die Ersetzung
  end;
end;