real/integer negativ prüfen

[Dax]

In einem Editfeld?

Delphi-Quellcode:

if Trim(Edit1.Text)[1] = '-' then
  ShowMessage('Zahl ist negativ.');