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).