Wie kann ich das rechnen

[Hawkeye219]

Du solltest den Wert für tolerance berechnen, bevor du ihn verwendest:

Delphi-Quellcode:

if (widerstand)<1000 then begin
pnl_result.caption := (floattostr((widerstand)/1))+' Ohm';
pnl_worstcasemin.caption := (floattostr((widerstand)/1-(tolerance)))+' Ohm';  // <<-- verwendet
pnl_worstcasemax.caption := (floattostr((widerstand)/1+(tolerance)))+' Ohm';  // <<-- verwendet
end;
tolerance :=  (widerstand)/100*(prozent);  // <<----- zu spät berechnet!

Gruß Hawkeye