Potenzberechnung mit Hilfe einer Rekursion

[Xbe]

@ Daniel G

hier mal nen Bsp für eine funktionierende Rekursion:

.
.
.

Delphi-Quellcode:

procedureTForm1.umkehren(Sender:TObject);
   var i,j:integer;
   prodedure umkehr(zeichen:char);
      begin 
         i:=i+1;
         zeichen:=wort[i];
         if i<length(wort) then umkehr(wort[i]);
         stringgrid1.cells[j,0]:=zeichen;
         j=j+1;
      end;
   begin
      wort:=edit1.text;
      i:=0;
      j:=1;
      umkehr(wort[i]);
   end;

.
.
.

[edit=MrSpock]Code Tags eingefügt. Mfg, MrSpock[/edit]