Hallo bekommen immer folgende Fehlermeldung
:
Zitat:
[Pascal Fehler]uDivisor.pas(14): E2065 Ungenügende Forward- oder External-Deklaration: 'TDivisor.setZahl'
Zitat:
[Pascal Fehler]uDivisor.pas(15): E2065 Ungenügende Forward- oder External-Deklaration: 'TDivisor.getDivisor'
bei folgendem Code:
Delphi-Quellcode:
unit uDivisor;
interface
uses
Windows, SysUtils;
type
TDivisor =
class (TObject)
private
public
procedure setZahl (a : Integer);
//Hier ist Fehler Nr.1
function getDivisor : integer;
//Hier ist Fehler Nr.2
end;
var
Zahl : Integer;
implementation
{$R *.dfm}
procedure setZahl (a : Integer);
begin
Zahl := a;
end;
function getDivisor : integer;
var
a : Integer;
//durchlaufende Zahl
ergebnis : real;
str :
string;
checkvar : boolean;
//Wenn Teiler, dann true
begin
a := 1;
checkvar := false;
repeat
ergebnis := Zahl / a;
str := FloatToStr(ergebnis);
if length(str)=1
then
checkvar := true;
until checkvar = true ;
Result := StrToInt(str);
end;
end.
Weiß leider nicht woran es liegt
Vielen Dank für die Hilfe!