Taschenrechner 2.0 - Der Multi-Rechner

[LDProgrammierer]

Also gut hier eine völlig neue Version des Taschenrechnes, die nun in der Mitte des Bildschirms startet und mehrere Funktionen hat Wie : Umfang/Flächeninhalt von : Quadrat, Rechteck
Flächeninhalt vom Dreieck und Prozentrechnen, ich habe bei der Gelegenheit auch gleich das PageControl getestet. Natürlich sind auch die Grundrechenarten vorhanen, und ein XPManifest hab ich auch eingebaut, das verleiht dem Programm einen guten Stil. Auf dem Bild ist leider nur die Seite mit den Grundrechenarten zuseheh. mfg

[Satty67]

Die beiden Funktionen würden sich fast schon aufdrängen.

Alternativ evtl. mit Try Except arbeiten:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  x,y : double;
begin
  y := 0;
  try
    x := 1 / y;
    // ShowMessage wird nie ausgeführt,
    // da der Code davor eine Exception ausgelöst hat
    ShowMessage(FloatToStr(x));
  except
    on E:EZeroDivide do
      ShowMessage('Durch 0 darf nicht dividiert werden.');
  end;
end;

€: geht ja um Gleitkommazahlen, Code angepasst

[LDProgrammierer]

Nein ich verwende keine doubles sondern Real :var a, b, c : Real; dann geht es ganz normal weiter a:= strtofloat(edit1.Text) usw.

[mkinzler]

Hallo LDProgrammierer,

was spricht den gegen die Verwendung von Delpi-Tags?
Ich habe in diesem Thread hier deine Beiträge schon mehrmals in der Hoffnung korrigiert, dass du es merkst!

Ich bitte dich in zukünftigen Beiträgen, bitte die richtigen Tags zu verwenden.

[Satty67]

Zitat von LDProgrammierer:

Nein ich verwende keine doubles sondern Real

Sind ja beides Gleitkommazahlen, real ist nur der kleinere Bruder

Verwendung von Real macht aber imho seit den Pentium-Prozessoren mit integriertem Co-Prozessor keinen Sinn mehr. Man könnte also gleich Double mit höherer Genauigkeit nehmen. Meine selbst in der Delphi 5 Hilfe wird schon geschrieben, dass Real im Prinzip veraltet ist.
Nachdem ich einfach in die Hilfe geschaut hatte, hab' es wohl mit Real48 verwechselt.

Real in aktuellen Version ist identisch mit Double.

[OrNEC]

Zitat von Satty67:

Meine selbst in der Delphi 5 Hilfe wird schon geschrieben, dass Real im Prinzip veraltet ist.

Und was heißt veraltet? Ist Real gebrechlich und das Gedächtnis lässt nach oder wie?

[himitsu]

Real Single ist nur schöne knuffige 4 Byte groß und wenn einem der etwas kleinere Wertebereich und die geringere Genauigkeit ausreicht, dann ist dieser doch erste Wahl?

Ich nehm auch nicht überall Int64 oder gar irgendwas BigInt-Artiges, wenn mit doch ein Integer oder Byteausreichen würde.


Float sollte von der Größe mit dem Integer übereinstimmen, also einer Registerbreite.

[edit]
ach mist, jetzt hab'sch Float mit Real verwechselt

[gammatester]

Zitat von himitsu:

Real ist nur schöne knuffige 4 Byte groß und wenn einem der etwas kleinere Wertebereich und die geringere Genauigkeit ausreicht, dann ist dieser doch erste Wahl?

Nein, das alte real war 48Bit = 6Byte groß (und wird wohl jetzt auf double umgelenkt)

Zitat von himitsu:

Float sollte von der Größe mit dem Integer übereinstimmen, also einer Registerbreite.

Warum? Was haben die Floatingpoint-Register mit 80Bit mit den normalen CPU-Registern zu tun?

[himitsu]

Das hat eher was mit Speicher-/Recordausrichtungen zu tun.


OK, Real = Double (nicht Siglge), aber egal ... Real ist auf jedenfalls kein "alter" Typ ... es ist nur eine "Umleitung", welche aktuell auf Double zeigt.

Real48 (in aktuellen Delphis) und das 6 Byte "Real" in alten Delphis ist wirklich obsolete.

[LDProgrammierer]

OK endlich habe ich es geschafft ich habe aber den folgenden Code verwendet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a, b, c : Real;
begin
a:= strtofloat(edit1.Text);
b:= strtofloat(edit2.Text);
c:= a/b;
if b = 0 then ShowMessage('Durch NULL darf nicht dividiert werden!') else
begin
 c:= a/b;
Edit3.Text := floattostr(c);
end;

end;

end.

[himitsu]

Das c:= a/b; vor der IF-Abfrage ist wohl noch zuviel.