Delphi Schleifen-Probleme

[Kegasetu]

Zitat von sakura:

Du arbeitest mit Fließkommazahlen, welche i.A. nicht genau genug sind, um diese mit festen Ergebnissen zu vergleichen.

Delphi-Quellcode:

while l1<>lges do
begin
  while l2<>lges do

Versuche anstatt

Delphi-Quellcode:

while l1<lges do
begin
  while l2<lges do

......

P.S.: Die Labels werden sich erst nach der Berechnung neu zeichnen.

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?

[stifflersmom]

Zitat von Kegasetu:

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.

Delphi-Quellcode:

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

[Incocnito]

Bin ich jetzt vollkommen bescheuert, oder gibt

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".