Rechnen + Quadratzahlen

[Dbof]

Sorry, wenn ich es nicht verstehe, werde morgen auf jeden Fall die Tutoriale durchmachen.

Du meinst also, ich kann das

begin
end;

weglassen?

Hier ist dann mein Quellcode mit eingebauten fehlern:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Function Power(Base, Exponent: Extended): Extended;
begin
Edit.Text := FloatToStr(Power(StrToIntDef(Base_edit.Text,0), 10));

end; //Rückgabewert der Funktion 'Power' könnte undefiniert sein
end; //BEGIN erwartet, aber END gefunden
end. // <---Hier wird ja das Dateiende deklariert

Nun eine Variante, die ich auch noch ausprobiert habe:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Function Power(Base, Exponent: Extended): Extended;
begin
Edit2.Text := '10' //Das ist einfach eine 2. Edit
end; //Rückgabewert der Funktion 'Power' könnte undefiniert sein
begin
Edit.Text := FloatToStr(Power(StrToIntDef(Base_edit.Text,0), 10));
end;
end. // <---Hier wird ja das Dateiende deklariert

So, nun kann man es wenigstens compilieren. Wenn im Edit-Feld "Base_edit" nichts eingegeben wird, kommt in "Edit" der Wert 0. Wird jedoch etwas eingegeben, meldet sich der Debugger mit der Fehlmeldung:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EInvalidOp aufgetreten. Meldung: 'Ungültige Gleitkommaoperation'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

Nun, es tut mir Leid, dass ich so viele Probleme habe, also habe ich mal das Programm gepostet(Anhang).