Taschenrechner mit ListBox!

[Der schöne Günther]

Immer Klammern um die einzelnen logischen Terme die du mit und, oder, x-oder und allem möglichen verknüpfst machen:

if (ListBox.selected[3]) and (b=0) then [...]

[info.noob]

Zitat von Der schöne Günther:

Immer Klammern um die einzelnen logischen Terme die du mit und, oder, x-oder und allem möglichen verknüpfst machen:

if (ListBox.selected[3]) and (b=0) then [...]

Vielen vielen Dank!
Du bist echt meine Rettung!
Unser Lehrer hat uns leider rein gar nichts erklärt!

[info.noob]

Sorry aber irgendetwas stimmt immer noch nicht...
ich hab das jetzt eingegeben und beim dividieren tut es was es soll, aber jetzt teilt es auch beim addieren, etc.
Wieso ist das so?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    zaehler: TEdit;
    reset: TButton;
    zaehler2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Image1: TImage;
    ListBox: TListBox;
    berechnen: TButton;
    schliessen: TButton;
    ergebnis: TLabel;
    Timer: TTimer;
    fehler1: TLabel;
    fehler2: TLabel;
    Image2: TImage;
    procedure berechnenClick(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
   a,b: real;
implementation

{$R *.DFM}



procedure TForm1.berechnenClick(Sender: TObject);

begin
    a:= StrtoFloat(zaehler.Text);
    b:= StrtoFloat(zaehler2.Text);

   if ListBox.selected[0] then ergebnis.Caption:= FloattoStr(a + b);
   if ListBox.selected[1] then ergebnis.Caption:= FloattoStr(a - b);
   if ListBox.selected[2] then ergebnis.Caption:= FloattoStr(a * b);

   if (ListBox.selected[3]) and (b=0) then
      Showmessage('Durch 0 darf nicht geteilt werden')
   else
   begin
   ergebnis.Caption:= FloattoStr(a / b);
end;

end;

end.

[Dalai]

[Sorry für etwas OffTopic]

Mal ne Frage meinerseits an die Wissenden, weil es mich interessiert: der Vergleich einer Float-Variable mit einer Konstanten:

Delphi-Quellcode:

var a,b: real;
if [...] (b=0) then

Funktioniert das, wie man das erwartet? Ich weiß, dass der Vergleich zweier Fließkommawerte problematisch ist (Stichwort SameValue, CompareValue und IsZero). Ist das beim Vergleich eines Floats mit einer Konstanten genauso? Wird die Konstante exakt - hier die 0 als 0.0 (unendlich 0) - abgebildet, oder ist es so, wie ich vermute, dass bei irgendeiner Nachkommastelle eine Abweichung vorliegt, die den exakten Vergleich beeinflusst?

MfG Dalai

[Der schöne Günther]

Zitat von Dalai:

oder ist es so, wie ich vermute, dass bei irgendeiner Nachkommastelle eine Abweichung vorliegt, die den exakten Vergleich beeinflusst?

Doch, mit Sicherheit. Nur in diesem konkreten Fall kein Problem, da sich Null exakt darstellen lässt. Mit einer willkürlichen Zahl wie 3,141589 auf exakte Gleichheit zu prüfen ist natürlich fahrlässig.

[Dalai]

Zitat von Der schöne Günther:

Zitat von Dalai:

oder ist es so, wie ich vermute, dass bei irgendeiner Nachkommastelle eine Abweichung vorliegt, die den exakten Vergleich beeinflusst?

Doch, mit Sicherheit. Nur in diesem konkreten Fall kein Problem, da sich Null exakt darstellen lässt. Mit einer willkürlichen Zahl wie 3,141589 auf exakte Gleichheit zu prüfen ist natürlich fahrlässig.

Verstehe. Dankeschön!

MfG Dalai