Du hast die Funktion in der form1 deklariert und rufst sie ein der
unit auf, das geht nicht entweder so:
Delphi-Quellcode:
procedure BPotenzClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
function Pot(a, b: Integer): Integer;
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;
oder so
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 TForm1.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;