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?

[Khabarakh]

Zitat:

Zitat von Gehstock

Zitat:

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

wegen der kommastellen?

Jupp.
Allerdings hast du jetzt ja schon zwei alternative, um Einiges kürzere und sogar schon völlig ausformulierte Lösungen bekommen, weshalb du auf case vollkommen verzichten kannst.
Für die Einheiten kannst du hier schauen: http://www.delphipraxis.net/internal...=462508#462508

[_frank_]

Zitat:

Zitat von Khabarakh

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

ehrlich gesagt, nein ;) war mir bisschen zu viel unformatierter code...

aber auch das lässt sich mit case machen... man muss nur eine weitere case-anweisung machen ;)

Delphi-Quellcode:

case trunc(resistor) of
...
  //hier nur bis minimum 10 gehen, weil bei kleiner nachkommastellen interessant sind
else
  case trunc(resistor*10) of
    1..12://ist (0.1)..(1.2)
  end;
end;

@gehstock: ich hab damit kein Problem, dass du Anfänger bist.
Aber wir haben schon mehrfach erwähnt, dass du passende Datentypen verwenden sollst.
Um das ständige von/nach string zu vermeiden, was sinnlose rechenleistung kostet und den code unübersichtlich macht.

Gruß Frank