Taschenrechner Positive Zahl zu negativer und umgekehrt

[Klaus01]

Guten Morgen,

Delphi-Quellcode:

procedure TForm1.ButtmpClick(Sender: TObject);
var PlusMinus: real;
begin
  PlusMinus := StrtoFloat(Edit1.Text);
  PlusMinus :=PlusMinus*(-1)
  Edit1.Text := FloattoStr(PlusMinus);
end;

-1 * -1 = 1
-1 * 1 = -1

Grüße
Klaus