Codierung

[DeddyH]

Delphi-Quellcode:

function ErsteFunktion(const Wort: string): string; //Ergebnistyp ist String
var i, Nummer: integer;
    Zeichen: char;
begin
  Result := ''; //Ergebnis initialisieren 
  for i := 1 to  length(Wort) do
    begin
      Zeichen:=Wort[i];
      Nummer:=Ord(Zeichen);
      Nummer:=Nummer+3;
      Zeichen:=Chr(Nummer);
      Result:=Result+Zeichen;      
    end;
end;

...
if Box1.checked then
   begin
   Wort:=WortEdit.Text;
   codiertesWortEdit.Text:=ErsteFunktion(Wort);

Für die anderen geht das dann genauso.