PI

[-Ptype-]

Delphi-Quellcode:

if zahl2 < 0 then 
  begin 
    showmessage ('Nicht erlaubt'); 
  end; 
  if zahl2 > 0 then 
  begin 
    n := 1; 
    y := zahl; 
    while n < zahl2 do 
    begin //hier begin vergessen! 
      zahl := zahl * y; 
      n := n + 1; 
    end; //und das dazugehörige end; 
  end 
   else 
    zahl := 1; 
  end;

thx dafür aber es kommt immer noch der selbe Fehler bei: zahl := 1; :S