Codierung

[mkinzler]

Zitat:

was soll ''...'' heißen?!

Platzhalter für weiteren Code

[DeddyH]

Das ist ein Platzhalter für den Quelltext, der dazwischen steht, für uns hier aber nicht relevant ist.

[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;

[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;