AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Taschenrechner Positive Zahl zu negativer und umgekehrt

Taschenrechner Positive Zahl zu negativer und umgekehrt

Ein Thema von hoika · begonnen am 6. Jun 2009 · letzter Beitrag vom 6. Jun 2009
Antwort Antwort
Alt 6. Jun 2009, 08:43     Erstellt von Ottomotto99
Dieser Beitrag wurde von gelöscht.
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.269 Beiträge
 
Delphi 10.4 Sydney
 
#1

Re: Taschenrechner Positive Zahl zu negativer und umgekehrt

  Alt 6. Jun 2009, 08:47
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.

if PlusMinus < '0' hier wird eine Zahl (Real) mit einem String verglichen

so ist es besser
if PlusMinus < 0
Heiko
Heiko
  Mit Zitat antworten Zitat
alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#2

Re: Taschenrechner Positive Zahl zu negativer und umgekehrt

  Alt 6. Jun 2009, 08:47
Du denkst zu kompliziert :
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
...
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.752 Beiträge
 
Delphi 10.4 Sydney
 
#3

Re: Taschenrechner Positive Zahl zu negativer und umgekehrt

  Alt 6. Jun 2009, 08:49
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
Klaus
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.288 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Taschenrechner Positive Zahl zu negativer und umgekehrt

  Alt 6. Jun 2009, 08:51
Wobei ich statt StrToFloat eher TryStrToFloat empfehlen würde, falls der Benutzer den Inhalt des Eingabefelds direkt verändern kann.
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat
Alt 6. Jun 2009, 08:57     Erstellt von Ottomotto99
Dieser Beitrag wurde von gelöscht.
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:34 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz