Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Sierpinski-dreieck

    Delphi
    by alleinherrscher, 4. Nov 2009
  Hi! ;) die 5 ist die rekursionstiefe...anders gesagt: "wieviele Dreiecke werden ineinander gezeichnet"
• Forum: Sonstige Fragen zu Delphi

  Re: Sierpinski-dreieck

    Delphi
    by alleinherrscher, 28. Okt 2009
  :D sry... ich habe in buttonclick width, top, etc. neu deklariert, d.h. in dieser einzelnen Prozedur entspeicht width nicht der Formularbreite sondern ist nur eine Integer-Variable wie jede andere...aber ich machs mal neu, etwas übersichtlicher:
  
  
  procedure TForm1.Button1Click(Sender: TObject);
  var a,b,c:TPoint;
  Laenge_Dreiecksseite:integer;
  ...
• Forum: Sonstige Fragen zu Delphi

  Re: Sierpinski-dreieck

    Delphi
    by alleinherrscher, 28. Okt 2009
  Hier die schnelle Antwort - Das Sierpinski Dreieck basiert auf Rekursion. D.h. die Funktion, die die Zeichnung übernimmt ruft sich selbst auf:
  
  
  procedure Sierpinski(a,b,c:TPoint;Rekursionstiefe:integer;aCanvas:TCanvas);
  {
  Sierpinski Dreieck (Rekursiv)
  Algorithmus von Alleinherrscher (www.delphipraxis.net)
  28.10.2009
  }
  var new_a,new_b,new_c:TPoint;