Hallo!
Habe die Aufgabe bekommen, die
Sierpinski-Kurve beliebiger Ordnung rekursiv (auf ein Canvas) zu zeichnen. Dazu habe ich zwar Hilfen bekommen (durch die ich noch durchsteigen muss), möchte allerdings erst einmal die auf Wikipedia angegebene Methode auf Delphi übertragen. Das Problem, das sich mir jetzt stellt, ist das, dass Prozeduren aufgerufen werden, die erst später deklariert werden können, da diese 4 Prozeduren sich untereinander aufrufen.
Bisher habe ich Folgendes:
Delphi-Quellcode:
private
{ Private-Deklarationen }
procedure sierpA (level:integer);
procedure sierpB (level:integer);
procedure sierpC (level:integer);
procedure sierpD (level:integer);[
[...]
procedure sierpA (level:integer);
begin
if level > 0 then
begin
sierpA (level-1); forwdNW (dist);
sierpB (level-1); forwdN (dist*2); // Zeile 60
sierpD (level-1); forwdSO (dist);
sierpA (level-1);
end;
end;
procedure sierpB (level:integer);
[usw]
Die Frage ist nun also, ob man das irgendwie biegen kann, dass keine Fehlermeldungen mehr à la "[Fehler] Unit1.pas(60): Undefinierter Bezeichner: 'sierpB'" mehr bekomme und ich das Programm kompilieren kann.
Bei Java scheint das zu klappen, bei Delphi allerdings nicht.
Bin für Antworten aller Art dankbar.