Hallo,
Delphi-Quellcode:
function Foo(Value:Integer):Integer;
begin
if (TSetCheck.I<Integer>(Result, Value*10)) and (Result > 100) then
Result:=Result - 1
else
Result:=Result + 1;
end;
Findest du das wirklich schöner/übersichtlicher als das oben?
Den Code oben versteht man 1000x besser als DAS da. Und schneller wirds mit Sicherheit auch sein.
Nein daraus wird (die
Unit wird erweitert):
Delphi-Quellcode:
function Foo(Value:Integer):Integer;
begin
if (TSetCheck.Common(Result, Value*10)) and (Result > 100) then
Result:=Result - 1
else
Result:=Result + 1;
end;
Das war ja nur ein sinnloses Beispiel. Wegen der Geschwindigkeit bin ich mir nicht sicher, wenn der Compiler der inline Direktive folgt, dann dürfte es sogar schneller werden, denn weitere Bedingungen werden ggf. gar nicht erst ausgewertet, im Gegensatz zur "lesbareren Version".