*lufthol* Erläutern wir mal deinen Quelltext (siehe Kommentare):
Delphi-Quellcode:
// Das OnClick-Ereignis
procedure TForm1.Button1Click(Sender: TObject);
// Eine nested function namens Power
Function Power(Base, Exponent: Extended): Extended;
begin
// In der nested function versuchst du etwas in der GUI zu machen
Edit.Text := FloatToStr(Power(StrToIntDef(Base_edit.Text,0), 10));
// ^
// Dieses Power ruft wieder die nested function auf
// Da kein Wert zurück gegeben wird, kommt der Fehler
end;
begin
// Der Inhalt des Ereignisses wie du siehst
// ist hier nichts, was soll also passieren?
end;
end.
// << gehört zur Unit und sollte da auch bleiben,
// ist aber hier nicht dein Problem
Eine nested function ist eine function, die nur innerhalb einer anderen function oder procedure gültig ist.
Wenn du die
Unit Math eingebunden hast reicht:
Delphi-Quellcode:
// Das OnClick-Ereignis
procedure TForm1.Button1Click(Sender: TObject);
begin
// Im OnClick machst du etwas mit der GUI
Edit.Text := FloatToStr(Power(StrToIntDef(Base_edit.Text,0), 10));
// ^
// Dieses Power ruft das Power aus der Unit Math auf
end;
Und bitte nimm den Rat an und geh die Tutorials durch. Danke.