hi,
mein delphi spuckt oben genannten fehler bei folgendem code-schnipsel aus:
Delphi-Quellcode:
unit UTypes;
interface
//##### TUmrechnen #####
type
TUmrechnen =
class(TObject)
private
published
constructor Create;
function EloToDwz(Elo: integer): integer;
function EloToIngo(Elo: integer): integer;
function EloToBcf(Elo: integer): integer;
end;
//##### Ende TUmrechnen #####
[...]
implementation
//##### TUmrechnen #####
constructor TUmrechnen.Create;
begin
inherited Create;
end;
function EloToDwz(Elo: integer): integer;
begin //Dwz = Elo - 100
Result := Elo - 100;
end;
function EloToIngo(Elo: integer): integer;
begin //Ingo = 355 - Elo / 8
Result := round( 355 - Elo / 8 );
end;
function EloToBcf(Elo: integer): integer;
begin //Bcf = Elo / 8 - 75
Result := round( Elo / 8 - 75 );
end;
//##### Ende TUmrechnen #####
[...]
end.
wo is das problem???