Wenn du es mit Funktionen statt mit Methoden implementieren willst (wo sind die militanten OOPler?
), dann kannst du die forward-Deklaration verwenden:
Delphi-Quellcode:
procedure sierpA (level:integer); forward;
procedure sierpB (level:integer);
begin
//...
end;
procedure sierpA (level:integer);
begin
//...
end;
@s-off: Das sind keine Klassenmethoden, sondern normale Methoden!
[edit] Wir geraten heute irgendwie oft wegen Nichtigkeiten aneinander. Sollte nur ein Klarstellung sein. [/edit]