Maßeinheiten als Typen

**JasonDX**

Leider konnte mir bisher keiner Erläutern, wo der Vorteil liegt, wenn man das als ein Typ implementiert (gegenüber der Implementierung durch einzelne Typen; den seh ich nämlich irgendwie nicht wirklich).

Weil durch einzelne Typen jede Methode, die bspw. einen Gewichtsparameter hat, für jeden Typen für Gewicht überladen werden muss.
Einfaches Beispiel:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure doSomething(weight: TTon);

procedure doSomething(weight: TTonne);

procedure doSomething(weight: TKilogram);

procedure doSomething(weight: TGram);

procedure doSomething(weight: TMilligram);

procedure doSomething(weight: TMicrogram);

procedure doSomething(weight: TPound);

procedure doSomething(weight: TStone);

procedure doSomething(weight: TSlug);

// Aufruf:

doSomething(100 as TStone);

Im Gegensatz zu

markieren

Delphi-Quellcode:

			procedure doSomething(weight: TWeight);

// Aufruf:

doSomething(TWeight.getStones(100));

Und das ganze wird schlimmer, wenn du Parameter kombinieren willst:

zusammenfalten · markieren

Delphi-Quellcode:

			function computeSpeed(distance: TYards; time: TSeconds): TMeterPerSecond

function computeSpeed(distance: TMeters; time: TSeconds): TMeterPerSecond

function computeSpeed(distance: TMillimeters; time: TSeconds): TMeterPerSecond

function computeSpeed(distance: TKilometers; time: TSeconds): TMeterPerSecond

function computeSpeed(distance: TInches; time: TSeconds): TMeterPerSecond

function computeSpeed(distance: TMiles; time: TSeconds): TMeterPerSecond

function computeSpeed(distance: TYards; time: TMinutes): TMeterPerSecond

function computeSpeed(distance: TMeters; time: TMinutes): TMeterPerSecond

function computeSpeed(distance: TMillimeters; time: TMinutes): TMeterPerSecond

function computeSpeed(distance: TKilometers; time: TMinutes): TMeterPerSecond

function computeSpeed(distance: TInches; time: TMinutes): TMeterPerSecond

function computeSpeed(distance: TMiles; time: TMinutes): TMeterPerSecond

function computeSpeed(distance: TYards; time: THours): TMeterPerSecond

function computeSpeed(distance: TMeters; time: THours): TMeterPerSecond

function computeSpeed(distance: TMillimeters; time: THours): TMeterPerSecond

function computeSpeed(distance: TKilometers; time: THours): TMeterPerSecond

function computeSpeed(distance: TInches; time: THours): TMeterPerSecond

function computeSpeed(distance: TMiles; time: THours): TMeterPerSecond

Maßeinheiten als Typen

AW: Maßeinheiten als Typen

Forumregeln