Code optimieren

[Gehstock]

doch tu ich aber du muss auch wissen ich bin anfänger und verstehe nicht alles

habs jetzt trotzdem so gemacht wel er beim ersten aufrug grundsätzlich falsch gerechnet hat

Delphi-Quellcode:

if (Resistor)>=1000000 then begin                                  //mohm
pnl_calculated_resistor.caption := FloatToStr(Runden((resistor/1000000),2)) +' MOhm';
end;
if (Resistor)<1000000 then begin
if (Resistor)>=1000 then begin                                  //kohm
pnl_calculated_resistor.caption := FloatToStr(Runden((resistor/1000),2)) +' KOhm';
end;
end;
if (Resistor)<1000 then begin                                 //ohm
pnl_calculated_resistor.caption := FloatToStr(Runden((resistor/1),2))+' Ohm';
end;

aber dank dir hab wenigstens das jetzt richtig

hab das programm mal angehängt so das ihr euch das vorstellen könnt (ist ein Nachbau zum Lernen)

--wie gesagt toleranz muss ich noch tun
--die comboboxen (ring 1-5) muss ich noch leeren beim umschalten (4.ringe 5ringe) die strings müssen aber drin bleiben also clear klappt nicht
--und jetzt ersmal wieder die normwiderstände
--und bei der Leistung rechnet er auch wieder falsch hat aber schonmal geklappt
--

Zitat:

Schonmal das Ende der Liste angeschaut? Denn dort wird es mit case NICHT funktionieren.

wegen der kommastellen?