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
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.