[gelöst / erledigt] Boolesche Operatoren und While-Schleife

[Lomat]

Hallo,

ich finde hier nichts zu Lazarus, sondern nur zu Delphi:

Folgender Code mit Trgd = Array Of Double wäre hier korrekt:

Code: Alles auswählen

Function iGetIndex(dbValue : Double; iStart : Integer; rgdAbscissa : Trgd) : Integer;
Var i: Integer;
Begin
  If iStart > Length(rgdAbscissa) - 1 Then iStart := Length(rgdAbscissa) - 1;
  i := iStart;
  While (i < Length(rgdAbscissa) - 1) And (dbValue > rgdAbscissa[i]) Do Inc(i);
  Result := i;
end;

In der While-Schleife wird dbValue > rgdAbscissa nicht mehr ausgeführt, weil die erste Bedingung schon nicht erfüllt ist. Ist die erste Bedingung nicht erfüllt und es würde dbValue > rgdAbscissa ausgeführt, würde eine Zugriffsverletzung resultieren, aber in Delphi und C++ passsiet das nie. Ist das in Lazarus genau so?

Viele Grüße Christoph

[theo]

https://www.freepascal.org/docs-html/prog/progsu4.html

[Lomat]

Danke, also das gleiche Benehmen wie Delphi oder C++.