Das ist die Begründung dafür, warum du
einen Typen für Gewicht benötigst, aber noch nicht die Begründung dafür, warum du mehrere Typen für Gewicht benötigst.
Delphi-Quellcode:
procedure Tuwas( const gewicht: TWeight );
begin
...
end;
Und verwenden so
Delphi-Quellcode:
begin
Tuwas( TWeight.FromKilograms( 10 ) );
Tuwas( TWeight.FromGrams( 10 ) );
Tuwas( TWeight.FromTons( 10 ) );
end;
PS Als kleines Beispiel sei gennant, dass die Geschwindigkeit als Weg pro Zeit definiert ist und nicht als Meter pro Sekunde. Jede Geschwindigkeit kann auch als Meter pro Sekunde dargestellt werden und trotzdem gilt das auch wenn der Weg in Kilometer angegeben ist und die Zeit in Nanosekunden.