Funktion, die beliebigen Typ zuweist und als Bool auswertet

[WladiD]

Zitat von Neutral General:

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".

[Deep-Sea]

Zitat von WladiD:

[...] denn weitere Bedingungen werden ggf. gar nicht erst ausgewertet, im Gegensatz zur "lesbareren Version".

Wie meinst du das?
Bei der Abfrage If A and B then ... ; wird B auch nicht mehr geprüft, wenn A bereits false ist.

[WladiD]

Zitat von Deep-Sea:

Zitat von WladiD:

[...] denn weitere Bedingungen werden ggf. gar nicht erst ausgewertet, im Gegensatz zur "lesbareren Version".

Wie meinst du das?
Bei der Abfrage If A and B then ... ; wird B auch nicht mehr geprüft, wenn A bereits false ist.

Genau so ist es: Boolesche Kurzauswertung. Siehe Delphi-Compiler-Direktive {$BOOLEVAL OFF}/{$B-} (Vorgabe).