if then

**coolchatter**

Hi,

ich habe ein problem. Und zwar:

Delphi-Quellcode:

			if (Edit1.Text > '0') and (Edit1.Text <= '4')  then Edit2.Text := '<= 4';

if (Edit1.Text > '4') and (Edit1.Text <= '9')  then Edit2.Text := '<= 9';

if (Edit1.Text > '9') and (Edit1.Text <= '13') then Edit2.Text := '<= 13';

dann müsste, wenn ich in Edit1 z.B. 10 eingebe in Edit2 <= 13 angezeigt werden. Das passiert aber nicht. Sondern es steht <= 4 da.

Ich suche schon seit Tagen den Fehler, finde ihn aber nicht.

Du musst deine Strings in den Edit erst mit Delphi-Referenz durchsuchen

StrToInt umwandeln, bevor du sie wirklich vergleichen kannst

**s.h.a.r.k**

Nein... Der Code passt schon - du hast aber eine Null vergessen! Und zwar wenn du das so machst klappt es:

markieren

Delphi-Quellcode:

			if (Edit1.Text > '0') and (Edit1.Text <= '4')  then Edit2.Text := '<= 4'; 

if (Edit1.Text > '4') and (Edit1.Text <= '9')  then Edit2.Text := '<= 9'; 

if (Edit1.Text > '09') and (Edit1.Text <= '13') then Edit2.Text := '<= 13';

**coolchatter**

Danke

Wegen einer Null

hab ich was dazugelernt, danke.

**s.h.a.r.k**

mit meinem Code klappt das auch! habs grad mal getestet! bei 10,9 spuckt er "<= 13" aus

[EDIT] Hab ich auch nicht gewusst - einfach mal ausprobiert

Die dumm ham halt s glück *g*[/EDIT]

**nailor**

wandel es wie Dax gesagt hat in numerische variablen um. also mit strtoint oder strtofloat.

Ich hab den Code auch ausprobiert.

Ergebnisse:

markieren

Code:

<= 9

<= 13

<= 4

<= 9

Wenn das mal kein Nichtfunktionalitätsbeweis ist

[edit]*reinlins* Roter Kasten? putt putt putt, komm her Roter Kasten...

**malo**

Zitat von Dax:

Ich hab den Code auch ausprobiert.

Ergebnisse:

markieren

Code:

<= 9

<= 13

<= 4

<= 9

Wenn das mal kein Nichtfunktionalitätsbeweis ist

Der Grund ist einfach der, dass Bei Stringvergleichen immer Zeichen für Zeichen überprüft wird, ob der ASCII-Wert kleiner, gleich oder größer ist. Es ist eine ähnliche Frage, wie die Frage "Was ist mir: eins komma elf oder eins komma zwei" (in Worten ausgedrückt). 1,11 ist natürlich weniger als 1,2. Wer aber nicht nachdenkt, sagt, 1,2 ist weniger

**coolchatter**

Das ging jetzt, aber ich hab ein neues Problem

und zwar:

markieren

Delphi-Quellcode:

			if (Edit7.Text >  '0')       and  (Edit7.Text <= '0900,42') then Label9.Caption := '<= 900,42';

if (Edit7.Text >  '0900,42') and  (Edit7.Text <= '2099,33') then Label9.Caption := '<= 2099,33';

if (Edit7.Text >  '2099,33') and  (Edit7.Text <= '4266,00') then Label9.Caption := '<= 4266,00';

if (Edit7.Text >  '4266,00')                                then Label9.Caption := 'größer';

Ich kann z.B. keine 4 eingeben und bekomme <= 900,42 heraus.

Meine Güte, hör mit den Stringvergleichen auf!

Wandel dir das Gesocks mit StrToFloat um und Vergleiche das. Das funktioniert wenigstens.

if then

if then

Re: if then

Re: if then

Re: if then

Re: if then

Re: if then

Re: if then

Re: if then

Re: if then

Re: if then

Forumregeln

Dax (Gast) n/a Beiträge	#2 Re: if then 9. Jun 2005, 20:30 Du musst deine Strings in den Edit erst mit StrToInt umwandeln, bevor du sie wirklich vergleichen kannst
	Zitat

coolchatter Registriert seit: 20. Feb 2004 44 Beiträge Delphi 3 Professional	#4 Re: if then 9. Jun 2005, 20:38 Danke Wegen einer Null hab ich was dazugelernt, danke. Ah, eine Variable, gut! Post aus einem Delphi-Forum.
	Zitat

s.h.a.r.k Registriert seit: 26. Mai 2004 3.159 Beiträge	#5 Re: if then 9. Jun 2005, 20:40 mit meinem Code klappt das auch! habs grad mal getestet! bei 10,9 spuckt er "<= 13" aus [EDIT] Hab ich auch nicht gewusst - einfach mal ausprobiert Die dumm ham halt s glück g[/EDIT] »Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
	Zitat

nailor Registriert seit: 12. Dez 2002 Ort: Karlsruhe 1.989 Beiträge	#6 Re: if then 9. Jun 2005, 20:42 wandel es wie Dax gesagt hat in numerische variablen um. also mit strtoint oder strtofloat. Michael N. http://nailor.devzero.de/code/sharpmath/testing/ --- Tests, Feedback, Anregungen, ... aller Art sehr willkommen! ::: don't try so hard - it'll happen for a reason :::
	Zitat

Dax (Gast) n/a Beiträge	#7 Re: if then 9. Jun 2005, 20:44 Ich hab den Code auch ausprobiert. Ergebnisse: markieren Code: 45: <= 9 1: <= 13 14: <= 4 54: <= 9 Wenn das mal kein Nichtfunktionalitätsbeweis ist [edit]reinlins Roter Kasten? putt putt putt, komm her Roter Kasten...
	Zitat

Dax (Gast) n/a Beiträge	#10 Re: if then 9. Jun 2005, 20:59 Meine Güte, hör mit den Stringvergleichen auf! Wandel dir das Gesocks mit StrToFloat um und Vergleiche das. Das funktioniert wenigstens.
	Zitat