Function für Vorzeichen?

[Klaus01]

Delphi-Quellcode:

function Vorzeichen(Value: Integer): Char;
begin
  result:='+';
  if (Value < 0) then 
    result:='-';
end;