PI

[-Ptype-]

Also hier mal den Code den ich jetzt drin habe und wo bei mir dann schließlich der Fehler auftaucht:

Delphi-Quellcode:

if zahl2 < 0 then
             begin
               showmessage ('Nicht erlaubt');
             end;
             if zahl2 > 0 then
             begin
               n := 1;
               y := zahl;
             while n < zahl2 do
               zahl := zahl * y;
               n := n + 1;
             end
             else
             zahl := 1;
             end;

Der Fehler kommt bei mir bei
 zahl := 1; und als Fehler steht dort: E2026 Konstantenausdruck erwartet