Einzelnen Beitrag anzeigen

Schwalbe.Pilot

Registriert seit: 7. Dez 2018
Ort: Rheinhessen
10 Beiträge
 
FreePascal / Lazarus
 
#1

Identifier not found -- Wo steckt der Fehler

  Alt 31. Jan 2019, 09:16
Hallo zusammen,

Ich bin neu in diesem Forum, daher packt diesen Threat bitte an eine andere Stelle, wenn die aktuelle platzierung nicht passt.#
Auch bin ich neu in Pascal und daher wird dies bestimmt ein ,Aanfängerfehler sein, wo ihr euch denkt och man ist der doooooof (Bitte seht über diese Felerchen hinweg.

Zu meinem Compiler: Ich benutze Lazarus (hoffe ich bin hier im Delphi-Forum richtig) und es ist mein aller erstes Projekt damit.

So genug gequatsch hier kommt der Code:

Delphi-Quellcode:
unit DetektivwalterKohl;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Buttons;

type

  { TForm1 }

  TForm1 = class(TForm)
    Hintergrund: TSpeedButton;
    RechterPfeil: TSpeedButton;
    LinkerPfeil: TSpeedButton;
    StartKnopf: TSpeedButton;
    StartBildschirm: TSpeedButton;
    procedure LinksPfeilKlick(Sender: TObject);
    procedure Start(Sender: TObject);
    procedure StartBildschirmClick(Sender: TObject);
    procedure StartClick(Sender: TObject);
    procedure WelcherHintergrund(HintergrundZaehler:Integer);
  private

  public

  end;

var
  Form1: TForm1;
  HintergrundZaehler : Integer;


implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.StartBildschirmClick(Sender: TObject);
begin
  HintergrundZaehler := 100 ;
  StartBildschirm.Glyph.loadfromfile('Startbildschirm.bmp'); // wechsel Bild zu TrippleD-production
  StartKnopf.Visible := True;
end;

procedure TForm1.Start(Sender: TObject);
begin

end;

procedure TForm1.LinksPfeilKlick(Sender: TObject);
begin
  HintergrundZaehler := HintergrundZaehler +1 ;
  WelcherHintergrund(HintergrundZaehler);
end;

procedure WelcherHintergrund(HintergrundZaehler:Integer);
begin
     if HintergrundZaehler = 99 then;
        Hintergrund.Glyph.loadfromfile('99.bmp');
end;

procedure TForm1.StartClick(Sender: TObject);
begin
  Hintergrund.Visible := True;
  RechterPfeil.Visible := True;
  LinkerPfeil.Visible := True;
  StartKnopf.Visible := False;
  StartBildschirm.Visible := False;

end;

end.
Jetzt zum Problem: In Zeile 63 also in der Fallunterscheidung zeigt er mir "Indentifier not found "Hintergrund"" an. So wie ich Pascal bis jetzt verstehe hab ich das doch aber oben denfiniert .
Ich hoffe jemand kann mir helfen und ich kann das Programm fertigmachen.

Für eure Mühe und Zeit schon eimal vielen Dank.
Schönen Tag euch
Schwalbe.Pilot

PS.: Das Programm wir ein Spiel, genauer gesagt ein PointAndClickAdventuere, wenn ihr dafür weitere Tipps habt, ich nehme sie immer gerne
Felix

Geändert von Schwalbe.Pilot (31. Jan 2019 um 09:55 Uhr)
  Mit Zitat antworten Zitat