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;
begin
end;
end.
Etwa so ?
[Warnung] Unit1.pas(39): Rückgabewert der Funktion 'Power' könnte undefiniert sein
Anscheinend ist das so. Passiert nichts beim Klicken.
