Delphi "uses"-Probleme

Infernus

Mitglied
Delfi: E2065 Funktion will nicht

Da hab ich das eine Problem gerade gelöst, da tritt das nächste auf...
weiß wer, was hier das Problem ist?


Code:
unit Sinus;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, uKPunkt;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    constructor varzuweisen;
  private
    punkte: array[1..150] of TPunkt;
    { Private-Deklarationen }
  public
    function rechne(zahl:integer):integer;
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TForm1.varzuweisen;
var i: integer;
begin
  for i:=1 to 150 do punkte[i]:=TPunkt.create(canvas);
end;

function rechne(zahl: integer):integer;
begin
  result:=trunc( 100 * sin(zahl) );
end;


procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  for i:=1 to 150 do punkte[i].pos(i,rechne(i));
  punkte[i].zeichnen;
  punkte[i].farbe(clred);
end;

end.


Die Unterstrichene Zeile wird bei mir als Fehlerzeile hervorgehoben...
Das dick geschriebene ist der aufruf der Funktion.

[Fehler] Sinus.pas(19): E2065 Ungenügende Forward- oder External-Deklaration: 'TForm1.rechne'

Das bekomme ich dann als Fehlerzeile raus :(

Danke für eure Hilfe...
 
Zuletzt bearbeitet:
Änder das mal um.

Code:
function TForm1.rechne(zahl: integer):integer;
begin
  result:=trunc( 100 * sin(zahl) );
end;
 
Zurück