real/integer negativ prüfen

[zecke]

:hi:

kann mir jemand sagen wie ich überprüfen kann ob ein real/integer-wert den ich in ein Edit-feld eingebe negativ ist? gibt es dafür einen speziellen befehl?

[sakura]

Zitat:

Zitat von zecke

gibt es dafür einen speziellen befehl?

Warum soll es für alles einen speziellen Befehl geben :shock: Das ist mit einer Zeile Logik getan...

Delphi-Quellcode:

if StrToFloatDef(Edit1.Text, 0) < 0 then
  ShowMessage('So schwer ist <0 doch nicht, oder?');

...:cat:...

[zecke]

mm danke, ich gebe zu, da hab ich mich "ein wenig"* plöt angestellt

*=voll bekloppt

ich danke dir sakura :)

[idontwantaname]

jedoch gibt es eine funktion für dies, und zwar die vorzeichenfunktion signum :wink:
sie liegt in der unit math und heißt sign( ... )

ist x negativ, ist sign(x) -1
x = 0 , sign(x) = 0
x > 0 , sign(x) = 1

diese funktion ist so unnötig :roll: :mrgreen:

[sakura]

Zitat:

Zitat von idontwantaname

jedoch gibt es eine funktion für dies, und zwar die vorzeichenfunktion signum :wink:
sie liegt in der unit math und heißt sign( ... )

Sign() nimmt aber keinen String an, und der Wert kommt aus einen Edit-Feld, liegt also als String vor ;)

...:cat:...

[zecke]

nunja is ja nach StrToFloat oder StrToInt kein string mehr oder?

edit: thx @ idontwantaname :) jawoll es gibt für alles einen befehl! :D

[Phistev]

@idontwantaname: sign(x) ist dafür da, das Vorzeichen zu erhalten, um es z. B. in einer Variablen zu retten (wenn man danach abs(x) einsetzt); in diesem Fall ist es also wirklich unnötig.

[idontwantaname]

jaja, ich wollte ja nur erwähnen, dass es eine funktion gibt, um das vorzeichen herausfinden, jedoch finde ich diese funktion überflüssig, denn eine zeile code zu schreiben ist ja gerade noch schaffbar :stupid:

[DGL-luke]

Delphi-Quellcode:

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

:stupid:

[Die Muhkuh]

Zitat:

Zitat von DGL-luke

Delphi-Quellcode:

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

:stupid:

OT:

Er wollte aber negativ und nicht positiv :stupid:

Delphi-Quellcode:

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