Aber mit ein bissl Nachdenken hätte man auch selber auf eine Lösung kommen können ... entweder unter MATH in der
OH suchen, oder
if x < 0 then x := -x;
PS: ABS macht intern nichts anderes
Code:
function abs(x: TYP): TYP;
begin
[b]if x < 0 then
result := -x[/b]
else
result := x;
end;