real/integer negativ prüfen

[Die Muhkuh]

Zitat von DGL-luke:

Delphi-Quellcode:

function positive(x:integer):boolean
begin
result:=(x>0)
end;

OT:

Er wollte aber negativ und nicht positiv

Delphi-Quellcode:

function negative(x:integer):boolean
begin
result:=(x<0)
end;