Sich selbst aufrufender Algorithmus

[CK_CK]

Hi!
Das geht ganz einfach und nennt sich rekursiver Aufruf...

Delphi-Quellcode:

procedure Test(Int: Integer);
begin
  if Int > 1 then Test(Int - 1);
end;

Dies ist natürlich nur ein Beispiel, hat also keinen Sinn

Chris

EDIT: Sorry, es kam keine rote Box