Unsatisfied forward or external declaration

[Steve-0]

Hallo, ich bin ein ziemlicher Anfänger in Delphi und muss für den Informatikunterricht ein Programm programmieren, in dem ich mit Variablen mehrere verschachtelte Pyramiden zeichne.
Problem ist nun, dass ich im Titel genannten Fehler kriege.
Das Programm ist vollkommen im Anfangsstadium und ich wollte nur schauen, ob die erste Pyramide gezeichnet wird und ob die MoveTo Befehle funktionieren... Also sollte es für euch nicht schwer sein das Problem zu finden, ich brauch allerdings ne idiotensichere Lösung :D

Delphi-Quellcode:

   TForm1 = class(TForm)
    Zeichnen: TButton;
    Image1: TImage;
    procedure ZeichnenClick(Sender: TObject);
  private
    { Private declarations }
    procedure Pyramide (Ebenen: Integer; Breite: Integer; X1,Y1: Integer);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}

procedure Pyramide (Ebenen: Integer; Breite: Integer; X1,Y1: Integer);
var ZeichneBreite: Integer;
begin
//ZeichneBreite:= Round (Breite div Ebenen);
with Form1.Image1.Canvas do begin
  MoveTo (X1,Y1);
  LineTo (PenPos.X+Breite div 2, PenPos.Y);
  MoveTo (PenPos.X+Breite div 2, PenPos.Y);
  LineTo (PenPos.X+Breite div 2, PenPos.Y+Breite);
  MoveTo (PenPos.X+Breite div 2, PenPos.Y+Breite);
  LineTo (X1,Y1);
end;
end;



procedure TForm1.ZeichnenClick(Sender: TObject);
begin
Pyramide (10,100,0,10);
end;

end.

[burn]

Hallo,

du hast hier TForm1 vergessen ....

TForm1.Pyramide..

Delphi-Quellcode:

procedure TForm1.Pyramide (Ebenen: Integer; Breite: Integer; X1,Y1: Integer);
var ZeichneBreite: Integer;
begin
//ZeichneBreite:= Round (Breite div Ebenen);
with Form1.Image1.Canvas do begin
  MoveTo (X1,Y1);
  LineTo (PenPos.X+Breite div 2, PenPos.Y);
  MoveTo (PenPos.X+Breite div 2, PenPos.Y);
  LineTo (PenPos.X+Breite div 2, PenPos.Y+Breite);
  MoveTo (PenPos.X+Breite div 2, PenPos.Y+Breite);
  LineTo (X1,Y1);
end;
end;

Edit: Herzlich willkommen im Forum ... :dp:

mfg burn

[Steve-0]

Danke, das ist zwar noch keine Pyramide was da rauskommt, aber das schaff ich dann selber:D
:thumb: :thumb: