Fehlermeldung "Gleitkommaüberlauf"

[Emilio]

Moin Moin,

Zitat:

Den Code, der den Gleitkommaüberlauf erzeugt, hast du nicht gezeigt.

üps - zu fix den "senden" Button gedrückt ...

hier der Rest:

Delphi-Quellcode:

// *** Berechnung der Parameter, wenn ein ekneu und ein lvpneu eingegeben wurde ***
procedure CalcRule03(ekneu, zuschlag,lvpneu,ProvSatz, MargeEAlt, ProvLVPAlt : Extended;
var bpneu, margeEneu, margeprozneu, provlvpneu, margeEaender, margeprozaender, provlvpaender: Extended);

begin
  bpneu := f_bpneu(ekneu, zuschlag);
  margeEneu := f_margeEneu(ekneu, lvpneu);
  margeprozneu := f_margeprozneu(ekneu, lvpneu);
  provlvpneu := f_provlvpneu(bpneu, lvpneu, ProvSatz);
  margeEaender := f_margeEaender(margeEneu, MargeEAlt);
  margeprozaender := f_margeProzaender(margeEneu, MargeEAlt);
  provlvpaender := f_provlvpaender(provlvpneu, ProvLVPAlt);
end;

und hier die Funktion auf die der Compiler verweist:

Delphi-Quellcode:

function f_margeprozneu(ekneu: Extended; lvpneu: Extended): Extended;
  begin
    Result := (1-(ekneu/lvpneu))*100;
  end;

Warum er nur bei "nein" an dieser Stelle hängenbleibt ?

VG Emilio