Ich möchte einen ganz normalen Taschenrechner programmieren, der die Standartfunktionen wie Addition usw kann, allerdings auch Wurzel, Logarithmus usw.
Nun habe ich versucht Potenzieren in einer Funktion zu schreiben, allerdings bekomme ich immer wieder die selben Fehler
Delphi-Quellcode:
[...]
procedure BPotenzClick(Sender: TObject);
private
{ Private-Deklarationen }
function Pot(a, b: Integer): Integer;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function Pot(a, b: Integer): Integer;
var
i: Integer;
begin
For i := 1
to b
do
begin
Result := a*a;
end;
end;
procedure TForm1.BPotenzClick(Sender: TObject);
var
a, b, c: Integer;
begin
a := StrToInt(EA.Text);
b := StrToInt(EB.Text);
c := Pot(a, b);
EC.Text := IntToStr(c);
end;
Wenn auf den Button BPotenz geklickt wird, sollen die beiden Zahlen a und b aus den Edit-Feldern EA und EB in der Funktion Pot benutzt werden und danach in c gespeichert werden. Dies soll dann im Edit-Feld
EC erscheinen, allerdings funktioniert es nicht, denn es kommen folgende Meldungen (Delphi-Hilfe nützt nichts und per Suche finde ich nur Funktionen, die klappen^^):
[Warnung] UTaschenrechner.pas(76): Rückgabewert der Funktion 'Pot' könnte undefiniert sein
[Fehler] UTaschenrechner.pas(55): Ungenügende Forward- oder External-Deklaration: 'TForm1.Pot'
[Fataler Fehler] Taschenrechner.dpr(5): Verwendete Unit 'UTaschenrechner.pas' kann nicht compiliert werden
Bitte Hilfe, warum funzt das net?
