Zitat von
3_of_8:
Delphi-Quellcode:
function abs(value: Integer): Integer;
begin
if value<0 do result:=(not value)+1 else result:=value;
end;
Himitsu hatte oben schon eine deutlich bessere Lösung dargestellt.
Allein die Kombination von
if und
do lässt mir ja schon die Haare zu Berge stehen.
