Ungenügende Forward- oder External-Deklaration

[Spezi]

hi,

ich hab versucht diese Klasse zu programmieren aber es tritt ein Fehler auf den ich weder verstehe noch weiß wie ich ihn beheben kann...

hier der Quelltext:

Delphi-Quellcode:

unit ebene;

interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Math;


type
    TSpiegel = class 
    private
           Fm  : Double;
           Fn  : Double;
    public
           function spiegeln ( mStrahl,mSpiegel : Double):Double;
    end;

implementation

function spiegeln ( mStrahl,mSpiegel : Double) : Double;
var
   m1,m2,m3,a : Double;
begin
     m1:=mSpiegel;
     m2:=mStrahl;
     a:=arcTan(abs((m1-m2)/(1+m1*m2)));
     m3:=(m1-Tan(a))/(m1*Tan(a)+1);
     spiegeln:=m3;
end;
end.

bei ausführen kommt die Fehlermeldung
--> [Fehler] ebene.pas(14): Ungenügende Forward- oder External-Deklaration: 'TSpiegel.spiegeln'

im Hauptprogramm ruf ich die Klasse noch garnicht auf...

wenn mir jemand helfen kann wäre das cool.

danke im Vorraus

MFG Spezi

PS: Bitte nicht über die Sinnhaftigkeit des Quelltexts nach denken ;)

[p80286]

wie wärs mit

Delphi-Quellcode:

function TSpiegel.Spiegeln...

Gruß K-H

[Luckie]

Deine Funktion spiegeln ist keine Methode deiner Klasse TSpiegel. Du musst sie zu einer Methode deiner Klasse machen, in dem du den Namen der Klasse vor die Funktion schreibst:

Delphi-Quellcode:

function TSpiegel.spiegeln ( mStrahl,mSpiegel : Double) : Double;
var
   m1,m2,m3,a : Double;
begin

[Spezi]

jo danke leute.... jetzt funktionierts :-D