Delphi Schleifen-Probleme

**stifflersmom**

Vielen Dank, es hat funktioniert!

Jedoch habe ich einen kleinen Fehler mit der IF-Anweisung gemacht. Ich will, sobald der Wert zwischen 95%-105% liegt eine IF-Anweisung weiter.
Dafür ist mein Ansatz mehr als falsch...

Gibt es die Möglichkeit, einfach so einen Bereich zu definieren?

Der Vorschlag mit IsValidValue von TiGü geht in die Richtung

**Benmik**

Da ja die 95% - 105% offenbar nicht supergenau sein müssen, wäre die Funktion InRange aus der Unit Math ein einfache Lösung (Math müsstest du dann der Uses-Klausel hinzufügen).
Die nimmt auch Fließkommazahlen, und es kommt ja nicht so genau darauf an, dass die Grenze absolut scharf gezogen wird.

markieren

Delphi-Quellcode:

			If InRange(Wert,Wert * 0.95,Wert * 1.05) 

  then ...

**Incocnito**

Bin ich jetzt vollkommen bescheuert, oder gibt

markieren

Delphi-Quellcode:

			function IsValueValid(const AValue, ARange: Extended): Boolean;

begin

  Result := (AValue <= ARange) or (AValue >= ARange);

end;

nicht sowieso IMMER True zurück!?

MfG Incocnito

**freimatz**

IMHO in der Regel ja. (Wenn die Parameter den Wert NaN o.ä. haben bin ich mir nicht sicher.)

**TiGü**

Ja tut es, aber das ist halt eins zu eins die Umsetzung aus dem Ursprungsposting.
Ob das sinnvoll ist, obliegt nicht mir.

**freimatz**

Schon klar.
Noch ein Tipp:

https://de.wikibooks.org/wiki/Progra...:_Der_Debugger

**Benmik**

Zitat von TiGü:

Ja tut es, aber das ist halt eins zu eins die Umsetzung aus dem Ursprungsposting.
Ob das sinnvoll ist, obliegt nicht mir.

Das finde ich keine Art, die man hier pflegen sollte. So geht man nicht mit Leuten wie diesem TE um. Keine nachahmenswerte Version von "Ein herzliches Willkommen in der freundlichen Entwickler-Community".

**TiGü**

Geht's noch?

Ich habe bei meinen Beispiel nicht drauf geachtet, was da als Bedingung steht, sondern nur eins zu eins in eine Unterroutine gepackt.
Wo ist denn jetzt das Problem?
Der Threadersteller hat doch schon selber erkannt, dass es so wie bisher nicht optimal ist und die richtige Lösung mit InRange hast du ihm doch auch schon gegeben.

Delphi Schleifen-Probleme

AW: Delphie Schleifen-Probleme

AW: Delphi Schleifen-Probleme

AW: Delphi Schleifen-Probleme

AW: Delphi Schleifen-Probleme

AW: Delphi Schleifen-Probleme

AW: Delphi Schleifen-Probleme

AW: Delphi Schleifen-Probleme

AW: Delphi Schleifen-Probleme

Forumregeln

Incocnito Registriert seit: 28. Nov 2016 229 Beiträge	#3 AW: Delphi Schleifen-Probleme 15. Okt 2020, 07:04 Bin ich jetzt vollkommen bescheuert, oder gibt markieren Delphi-Quellcode: function IsValueValid(const AValue, ARange: Extended): Boolean; begin Result := (AValue <= ARange) or (AValue >= ARange); end; nicht sowieso IMMER True zurück!? MfG Incocnito
	Zitat

freimatz Registriert seit: 20. Mai 2010 1.490 Beiträge Delphi 11 Alexandria	#4 AW: Delphi Schleifen-Probleme 15. Okt 2020, 07:14 IMHO in der Regel ja. (Wenn die Parameter den Wert NaN o.ä. haben bin ich mir nicht sicher.)
	Zitat

TiGü Registriert seit: 6. Apr 2011 Ort: Berlin 3.073 Beiträge Delphi 10.4 Sydney	#5 AW: Delphi Schleifen-Probleme 15. Okt 2020, 07:59 Ja tut es, aber das ist halt eins zu eins die Umsetzung aus dem Ursprungsposting. Ob das sinnvoll ist, obliegt nicht mir.
	Zitat

freimatz Registriert seit: 20. Mai 2010 1.490 Beiträge Delphi 11 Alexandria	#6 AW: Delphi Schleifen-Probleme 15. Okt 2020, 09:51 Schon klar. Noch ein Tipp: https://de.wikibooks.org/wiki/Progra...:_Der_Debugger
	Zitat

TiGü Registriert seit: 6. Apr 2011 Ort: Berlin 3.073 Beiträge Delphi 10.4 Sydney	#8 AW: Delphi Schleifen-Probleme 15. Okt 2020, 13:14 Geht's noch? Ich habe bei meinen Beispiel nicht drauf geachtet, was da als Bedingung steht, sondern nur eins zu eins in eine Unterroutine gepackt. Wo ist denn jetzt das Problem? Der Threadersteller hat doch schon selber erkannt, dass es so wie bisher nicht optimal ist und die richtige Lösung mit InRange hast du ihm doch auch schon gegeben.
	Zitat