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