Komponenten in Prozedur nicht erkannt

[IckyWolf]

Ich versuche mich an dem Spiel Kniffel mit mehreren Spielern.
Dabei dachte ich daran, den Spielzug nach dem Würfeln über einen Button auswählen zu können, welcher nur erscheint, wenn das entsprechende Feld noch frei ist.
Bei der Umsetzung habe ich die Information in einem record pro Spieler gespeichert, wobei am Anfang jeder Runde ausgelesen wird, welche Spielzüge noch frei sind(siehe Quelltext).
Befindet sich die Prozedur innerhalb eines Ereignisses, funktioniert alles so weit, um jedoch nicht extra klicken zu müssen, wollte ich diese am Ende der Auswahl automatisch ausführen lassen.
Nutze ich hierfür eine eigene Prozedur, damit der Quelltext nicht zu lang wird, welche bei jedem Auswahlbutton aufgerufen wird, werden die Komponenten in der prozedur jedoch nicht erkannt (z.B. Error: Identifier not found "BitBtn_eins").

Delphi-Quellcode:

procedure neu;
    if Spieler=1 then
    begin
      BitBtn_eins.visible:=SpielerA.eins;
      BitBtn_zwei.visible:=SpielerA.Zwei;
      BitBtn_drei.visible:=SpielerA.drei;
      BitBtn_vier.visible:=SpielerA.vier;
      BitBtn_fuenf.visible:=SpielerA.fuenf;
      BitBtn_sechs.visible:=SpielerA.sechs;
      BitBtn_d.visible:=SpielerA.d;
      BitBtn_v.visible:=SpielerA.v;
      BitBtn_fh.visible:=SpielerA.fh;
      BitBtn_ks.visible:=SpielerA.ks;
      BitBtn_gs.visible:=SpielerA.gs;
      BitBtn_k.visible:=SpielerA.k;
      BitBtn_c.visible:=SpielerA.c;
    end;

    if Spieler=2 then
    begin
      BitBtn_eins.visible:=Spielerb.eins;
      BitBtn_zwei.visible:=Spielerb.Zwei;
      BitBtn_drei.visible:=Spielerb.drei;
      BitBtn_vier.visible:=Spielerb.vier;
      BitBtn_fuenf.visible:=Spielerb.fuenf;
      BitBtn_sechs.visible:=Spielerb.sechs;
      BitBtn_d.visible:=Spielerb.d;
      BitBtn_v.visible:=Spielerb.v;
      BitBtn_fh.visible:=Spielerb.fh;
      BitBtn_ks.visible:=Spielerb.ks;
      BitBtn_gs.visible:=Spielerb.gs;
      BitBtn_k.visible:=Spielerb.k;
      BitBtn_c.visible:=Spielerb.c;
  end;

[hoika]

Hallo,
du muss Neu im Formular definieren.

Delphi-Quellcode:

Type
  TForm1 = class(TForm)
  private
    procedure Neu;
  end;

implementation

procedure TForm1.Neu;
begin
end;

Und herzlich willkommen im Forum!

[IckyWolf]

Vielen Dank,das nächste Mal weiß ich bescheid

Nochwas:
Habe mich wahrscheinlich irgentwo vertippt
Fehler: project1.lpr(18,34) Error: Identifier not found "Form1"

Delphi-Quellcode:

begin
  RequireDerivedFormResource:=True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[Delphi.Narium]

Ob er Form1 kennt oder nicht, ergibt sich irgendwo aus dem Quelltext oberhalb des begin. Ohne den vollständigen Quelltext der Datei, können wir nicht helfen, da alle wesentlichen Informationen fehlen.

[IckyWolf]

Vielen Dank, dass ihr euch die Zeit nehmt mir zu helfen

Delphi-Quellcode:

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, Unit1
  { you can add units after this };

{$R *.res}

begin
  RequireDerivedFormResource:=True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

}

[Delphi.Narium]

Form1 ist dann wohl vermutlich in Unit1 definiert.

Schau dort bitte mal nach, ob dem wirklich so ist. Ggfls. poste mal den Quelltext der Unit1, denn eventuell ist dadrinne irgendwas nicht so, wie erwartet.

Hast Du dort (eventuell unbeabischtigt) beim Erstellen / Ändern Deine prozedure neu; etwas verändert?