Einfügen von Prozeduren

[Andreas L.]

Delphi-Quellcode:

procedure Ziehen(Zug, Wid: Integer);
begin
  zug := Dec(Zug); //zieht 1 ab
  if zug = 0 then
  begin
    if wid = 1 then
    begin
      wid := 2;
      spielnachricht.caption := 'Spieler 2 ist an der Reihe.';
      zug := 5;
    end
    else
    begin
      wid := 1;
      spielnachricht.caption := 'Spieler 1 ist an der Reihe.';
      zug := 5;
    end;
  end;
end;

procedure TForm11.Button1Click(Sender: TObject);
begin
  Ziehen(2, 5);
end;