If-Bedingung mit mehreren Combobox

[TByte]

Hallo Leute!
Also erstmal: Ich bin neu an Board, und hoffe ich bin in der richtigen Kategorie :D

So, ich bin Anfänger in Delphi und benutze Lazarus, und bin auf ein Problem gestoßen..

Ich programmiere einen Temperatur-Einheiten-Umrechner, sprich Celsius in Fahrenheit etc.

Es soll einmal die Eingabe + Combobox1 zur Auswahl und die Ausgabe + Combobox2 zur Auswahl geben.

Jetzt soll Die Eingabe Celsius in Fahrenheit ausgegeben werden:

Delphi-Quellcode:

if combobox1.caption='Celsius' and combobox2.caption='Fahrenheit'
 then ... ;

Wieso klappt das nicht?
Und was kann man tun, damit die Rechnung folgen kann, indem man zwei Combobox' ausgewählt hat??


Schöne Grüße, TByte

[jaenicke]

Du musst Klammern um die einzelnen Bedingungen setzen.

[TByte]

Oh ne.
Deprimierend dass ich nicht selbst drauf kam.

Ich werde es nachher probieren, danke für die schnelle Antwort! :)

[jaenicke]

Hintergrund ist, dass das sonst so ausgewertet wird:

Delphi-Quellcode:

if combobox1.caption=('Celsius' and combobox2.caption='Fahrenheit') then
...

Und das geht logischerweise nicht.

[DeddyH]

Heißt die Eigenschaft bei Lazarus Caption? Ich hätte jetzt Text genommen (oder wäre evtl. eher über den ItemIndex gegangen).

[jaenicke]

Zitat:

Zitat von DeddyH (Beitrag 1241976)

Heißt die Eigenschaft bei Lazarus Caption? Ich hätte jetzt Text genommen

Caption und Text ist in Lazarus bei einer ComboBox das gleiche (beides geht auf GetText und SetText).

[himitsu]

Zitat:

Zitat von jaenicke (Beitrag 1241974)

Hintergrund ist, dass das sonst so ausgewertet wird:

Delphi-Quellcode:

if combobox1.caption=('Celsius' and combobox2.caption='Fahrenheit') then
...

Und das geht logischerweise nicht.

Eigentlich so

Delphi-Quellcode:

if combobox1.caption = ('Celsius' and combobox2.caption) = 'Fahrenheit' then
...

// bzw.

if (combobox1.caption = ('Celsius' and combobox2.caption)) = 'Fahrenheit' then
...

Denn AND ist höherwertiger, als das =, bei der Auswertungsreihenfolge.
Wenn = höherwertiger wäre, dann würden die = vor dem AND aufgelst und es würde gehn, aber dann dürfte man bei

Delphi-Quellcode:

if i and $01 <> 0

das AND klammern, weildas nicht mehr ginge.

AND bei Strings gibt es nicht und ein doppelter Vergleich ist auch nicht möglich, da

Delphi-Quellcode:

if combobox1.caption = {string} = 'Fahrenheit' then

so

Delphi-Quellcode:

if (combobox1.caption = {string}) = 'Fahrenheit' then

geklammert und danach dann so

Delphi-Quellcode:

if {boolean} = 'Fahrenheit' then

ausgewertet wird.

[jaenicke]

Ja, richtig, ich wollte eigentlich nur zeigen, dass an der Stelle die Logik aufgeteilt wird. ;-)

[TByte]

Vielen Dank,

also das Einklammern hat geklappt.
Ich habe es jetzt auch hinbekommen, dass ich für die Eingabe nur Zahlen zulasse, und jeweils nur ein minus-Zeichen und ein Komma.

Folgende Probleme habe ich jetzt:
Wenn man Beispielsweise "45-84." eingibt, kommt n Fehler. :D Wie kriege ich es hin, dass das Minuszeichen nur zu Beginn geschrieben werden kann?

2. Problem: Kelvin beispielsweise fängt erst ab 0 Grad an. Wie kann ich die Eingabe bei Kelvin einschränken?

Ich hab hier mal mein Projekt hochgeladen.

LG !

Edit.: Achso, "°C" fehlt noch im StaticText2, bitte einfach ignorieren :)

[Medium]

Anmerkung am Rande: Es gibt durchaus negative Temperaturen auf der Kelvinskala in der realen Welt. Die ergeben sich zwar eher nur rechnerisch und entstammen Quanteneffekten, aber man könnte durchaus motiviert sein negative Kelvin zu benutzen :stupid:

Auch wenn es etliche Möglichkeiten gibt gültige Zahlen zu prüfen, und das Thema schon sehr oft hier war, hier zumindest ein Weg, das "-" nur vorne zuzulassen:

Delphi-Quellcode:

if Pos('-', MyEdit.Text) <= 1 then // Entweder kein Minus, oder es ist an 1. Stelle

Das lässt zwar noch immer Dinge wie "-10,6-2" zu, aber mit Pos() und PosEx() hast du schon mal zwei sehr gute Funktionen um dies weiter zu spinnen.