Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Vergleichen Größer als und kleiner als
Koyotee - Mo 13.06.22 19:51
Titel: Vergleichen Größer als und kleiner als
Guten Tag,
"Ich hab da ein Problem..." (frei nach Bodo Bach, Komiker) hört ihr bestimmt mehrfach in der Woche und "ich bin kein Profi" noch viel öfters.
So auch bei mir. Ich habe zwar schon das Eine oder Andere in Delphi programmiert aber immer nur aus Beispielen die ich geändert oder erweitert habe (mit anderen Beispielen) aber nun komme ich nicht weiter. Mit booleschen.... und Integer... hab ich wahrhaftig noch nichts gemacht (glaub ich zumindest).
Das Problem:
(Die Suchfunktion habe ich schon beansprucht aber nur das gefunden was, nach meinem Verständnis, das Problem nicht löst:
Probleme bei > (größer als) < (kleiner als) [
https://entwickler-ecke.de/viewtopic.php?t=37861&highlight=vergleich+gr%F6%DFer+kleiner])
In meinem Formular wird ein Wert (ergebnis.text) angegeben den ich mit >= und <= reduzieren möchte, als Beispiel:
Delphi-Quelltext
1: 2: 3: 4: 5: 6:
| procedure TForm1.Button1Click(Sender: TObject); if ergebnis.text:>='31' and ergebnis.text: <='35' then Edit1.text = '30';
if ergebnis.text: >= '36' and ergebnis.text: <= '40' then edit1.text = '40'; |
ob mit : oder ohne, ob mit '' oder ohne bekomme ich Fehlermeldungen (z.B. ...Operator...nicht anwendbar...) und das liegt wohl an dem "and"
Wie muss der code lauten bzw. wie läst sich das Problem lösen.
Schon mal herzlichen Dank
Harald
Moderiert von Th69: URL-Titel hinzugefügt.
Moderiert von Th69: Delphi-Tags hinzugefügt
Moderiert von Th69: Topic aus WinForms verschoben am Mo 13.06.2022 um 20:34
jfheins - Mo 13.06.22 20:07
Nabend :-)
Hast du schon mal versucht, Klammern zu setzen?
Also so in etwa: if (ergebnis.text >= '36') and (...
ub60 - Mo 13.06.22 20:30
Mal eine prinzipielle Bemerkung zum Konzept: Du vergleichst hier Zahlen, die aber als String dargestellt werden; es ist also ein alphabetischer Vergleich. Es gilt also z.B. '10'<'9'.
Eventuell solltest Du doch besser die Zahlen selbst vergleichen.
ub60
Koyotee - Mo 13.06.22 21:27
@jfheins
ja:
Delphi-Quelltext
1:
| if (ergebnis.text >='31') and (ergebnis.text<='35') then Edit1.text:= '30' ; |
funktioniert, werde ich weiter versuchen und melde mich wieder wenn es noch Probleme geben sollte.
Danke schon mal.
@ub60
OK aber wie sieht der Code dann aus?
VG
Harald
P.S. sollten noch weitere Vorschläge bestehen dann bitte melden.
Moderiert von Th69: Delphi-Tags hinzugefügt
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2024 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!