Codierung

[moment_]

Delphi-Quellcode:

procedure TForm1.anderesButtonClick(Sender: TObject);
function ErsteFunktion(const Wort: string): string;
var i, Nummer: integer;
    Zeichen: char;
begin
  Result := '';
  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; habs weggemacht weil sonst kommt fehlermeldung, dass declaration erforderlich ist}

if Box1.checked then
   begin
   Wort:=WortEdit.Text;{Fehlermeldung:der linken seite kann nichts zugewiesen werden?!Ich weiß jetzt nicht welche linken Seite gemeint ist!}
   codiertesWortEdit.Text:=ErsteFunktion(Wort);
end;