Delphi-Quellcode:
Result := RV;
if RV >= 1000 then begin Result := RV / 1000; EH := 'kOhm'; end;
if RV >= 1000000 then begin Result := RV / 1000000; EH := 'MOhm'; end;
if RV >= 1000000000 then begin Result := RV / 1000000; EH := 'GOhm'; end;
sollte es hier nicht überall Resulti heißen?
Weil:
pnl_calculated_resistor.caption :=IntToStr(ResultI)
Grüße
Klaus