Fehlermeldung "Gleitkommaüberlauf"

[marabu]

Du scheinst irgendwo einen nicht initialisierten Wert zu übergeben. Du solltest auch deine Berechnungsfunktionen gegen Eingabefehler des Programmbenutzers immunisieren:

Delphi-Quellcode:

uses 
  Math;

function f_margeprozneu(ekneu, lvpneu: Extended): Extended;
begin
  if IsZero(lvpNeu, 1/1000) 
    then raise Exception.Create('lvpNeu ist verdammt nahe bei 0')
    else Result := ( 1 - ( ekneu / lvpneu ) ) * 100;
end;

marabu

[Emilio]

@marabu,

ich glaube das war's!

Habe die Deklaration 'lvpneu := EditCurr2.Value' an den Beginn der Prozedur ( welche die jeweiligen CalcRules aufruft) eingetragen und es funktioniert. Ist mir noch nicht ganz klar warum, da die CalcRule01 ange ... Stopp! - Guten morgen Emilio! - ist doch klar.

Habe jetzt zwar an anderer Stelle eine ungültige Gleitkommaoperation, aber da werde ich sicherlich dahinterkommen.

Vielen vielen Dank für Eure Hilfe! Ihr seid spitze!


VG Emilio