Delphi-Quellcode:
function Spielfeld (Sender: TObject; var Feld, Mann1, Mann2: integer): Integer;
begin
If Feld = 1 then begin
LabelFeld1.Caption:=Mannschaft[Mann1].name +' vs. '+ Mannschaft[Mann2].name;
end else if Feld = 2 then begin
LabelFeld2.Caption:=Mannschaft[Mann1].name +' vs. '+ Mannschaft[Mann2].name;
end else begin
LabelFeld3.Caption:=Mannschaft[Mann1].name +' vs. '+ Mannschaft[Mann2].name;
end;
end;
Ok erledigt habe TForm1. vor Spielfeld vergessen
