PI

[-Ptype-]

Delphi-Quellcode:

procedure TForm2.ButtonGleichClick(Sender: TObject); 
{************************************************************************} 
var zahl2,n  : double; 
    pi       : real; 
begin 
  zahl2 := strtofloat (Edit1.Text); 
  case merk of 
    plus: zahl := zahl + zahl2; 
    minus: zahl := zahl - zahl2; 
    mal: zahl := zahl * zahl2; 
    geteilt: zahl := zahl / zahl2; 
    hoch: zahl := zahl * zahl; 
    wurzel: zahl := sqrt(zahl); 
    hochx:  begin
             if zahl2 < 0 then // Hier Fängts An! 
               begin 
                 showmessage ('Nicht erlaubt'); 
               end 
             else 
             if zahl2 > 0 then 
               begin 
                 n := 1; 
                 y := zahl; 
               while n < zahl2 do 
               begin 
                 zahl := zahl * y; 
                 n := n + 1; 
               end; 
             end 
             else 
               zahl := 1; 
             end;
           end;
    wurzelx: begin   // HIer ist ein neuer Fehler
               n := zahl; 
               zahl := exp((1/n)*ln(zahl2)); 
             end; 
    prozent: begin 
               n := 100; 
               zahl := zahl * zahl2 / n; 
             end; 
  end; 
    edit1.text:=floattostr(zahl); 
    neue_zahl := True; 
    ButtonKomma.Enabled := True; 
    ButtonGleich.Enabled := False; 
end;

Der alte fehler ist weg aber ein neuer ist da -.-