Wiederholschleife will nicht

[spox]

Hallo!
Ich will eine Pyramide machen, die aus vielen kleinen Pyramiden besteht machen, also zeichnen. Jetzt habe ich die folgende Idee gehabt:

Delphi-Quellcode:

unit dreieckU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    procedure dreieck ;
    procedure pyramide (a:integer);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.dreieck;
begin
 with Image1.Canvas do
 begin
  lineTo (penpos.X+10,penpos.Y-10);
  lineTo (penpos.X+10,penpos.Y+10);
  lineTo (penpos.X-20,penpos.Y);
 end;
end;

procedure TForm1.pyramide;
var b:integer;
begin
Image1.Canvas.moveTo (0,Image1.Height-1);
repeat
begin
 for b:=1 to a do
 begin
  dreieck;
  with Image1.Canvas do
   moveTo (penpos.X+20,penpos.Y)
 end;
 with Image1.Canvas do
  moveTo ((penpos.X-round(a*20))+10,penpos.Y-10);
 a:= a-1 ;
end;
until
a>=0
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
pyramide (5)
end;

end.

Doch es will einfach nicht. Kann es sein, dass die Pyramiden immer an der gleichen Stelle gezeichnet werden? Oder einfach die Schleife nicht geht?

[xaromz]

Hallo,

Deine Abbruchbedingung ist A >= 0. Das ist aber natürlich immer der Fall. A = 0 ist wohl richtig.

Gruß
xaromz

[Noobinator]

bin ich blind, oder wo initialisierst du a ?

achja und gewöhne dir bitte an auch die Schleifen einzurücken, sonst kann das leicht unübersichtlich werden

Edit: ahh du übergibst das ganze als Parameter. Wieso ist der im implementation Teil nicht nochmal mit angegeben o.O?

[nachti1505]

procedure TForm1.pyramide(a: Integer); ???

[leddl]

Zitat von nachti1505:

procedure TForm1.pyramide(a: Integer); ???

Zitat von Noobinator:

Wieso ist der im implementation Teil nicht nochmal mit angegeben o.O?

@Noobinator:
Ist AFAIK nicht notwendig, solange es nur eine Methode mit diesem Namen gibt. Ich gebe aber auch aus Gründen der Nachvollziehbarkeit immer die volle Signatur an...

[spox]

Dankeschön

Funktioniert jetzt richtig

Echt ein super Forum hier. Auch für einen Anfänger immer da. Ich gib mal einen für euch aus. Prost