Junge...liest du auch mal was wir schreiben?
Delphi-Quellcode:
case trunc(resistor) of
0..999:pnl_calculated_resistor.caption := FloatToStr(Runden(resistor,2))+' Ohm';
1000..999999:pnl_calculated_resistor.caption := FloatToStr(Runden((resistor/1000),2)) +' KOhm';
else :pnl_calculated_resistor.caption := FloatToStr(Runden(resistor/1000000),2) +' MOhm';
end;
(evtl. nach dem else kein ':')
das ständige umwandeln von/nach string...