Taschenrechner Positive Zahl zu negativer und umgekehrt

[hoika]

Hallo,

multipliziere einfach mit -1.

Zitat:

es startet nicht

F5/F7/F8/F9 drücken ?
... Im Ernst, das ist keine Fehlermeldung, mit der man was anfangen kann.

Delphi-Quellcode:

if PlusMinus < '0'

hier wird eine Zahl (Real) mit einem String verglichen

so ist es besser

Delphi-Quellcode:

if PlusMinus < 0

Heiko

[alzaimar]

Du denkst zu kompliziert :zwinker: :

Delphi-Quellcode:

Var
  Zahl : Double; // <-- ist besser als Real. Extended geht auch.

Begin
  Zahl := StrToFloat (Edit1.Text); // Umwandeln vom TEXT des Eingabefeldes in eine relle Zahl
  Zahl := -Zahl; //  Vorzeichen umkehren
...

[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

[jaenicke]

Wobei ich statt StrToFloat eher TryStrToFloat empfehlen würde, falls der Benutzer den Inhalt des Eingabefelds direkt verändern kann.