Source wird nicht vollständig compiliert

[MOCI]

Hi,

habs jezt selbst bemerkt.
Da war ein Widerspruch im Code.
Muss so sein, dann funktionierts:

Delphi-Quellcode:

if Value <> 0 then begin
    if Value/100 > 0 then
      Wert := 1 - Value/100         
    else                          
      Wert := -1 * (1 - Value/100);
    for I := 0 to Self.CountPositionen - 1 do
      for J := 0 to Self.CountAuflagen - 1 do begin
        Wert := EinzelRabatt[I, J] + Wert; //Wert anstatt FRabatt
        EinzelRabatt[I, J] := Wert;
      end; // End For
  end; // End If

Dank an SirThornberry
mfg MOCI