Codierung

[DeddyH]

Du musst schon versuchen zu verstehen, was wir hier posten. Mach das "end;" mal wieder rein, dann steht die Funktion wieder geschlossen für sich.

Delphi-Quellcode:

function ErsteFunktion(const Wort: string): string;
var ...
begin
  //Code der Funktion
end;

procedure TForm1.ErsezungButtonClick(Sender: TObject);
var Wort: string; //diese Variable Wort hat nichts mit dem Parameter in obiger Funktion zu tun
//ggf. weitere Variablen
begin
  ...
  if Box1.checked then
    begin
       Wort:=WortEdit.Text;
       codiertesWortEdit.Text:=ErsteFunktion(Wort);
    end;
  ...
end;