Gibt es Hexen?

[idefix2]

Wie kommt das Programm da in den then-Zweig hinein?
Das gibt es doch überhaupt nicht

Habt ihr eine Idee, wo ich da nach dem Fehler suchen könnte?

[idefix2]

Problem gelöst - Das Verhalten des Delphi Debuggers ist da ein ganz klein wenig verwirrend: er führt das, was im then Zweig steht, gar nicht aus, tut aber so, als wäre das, was im THEN Zweig steht, die aktuelle Anweisung - der Programmfehler war an einer anderen Stelle.

[Popov]

Mach es so, ist besser:

Delphi-Quellcode:

  if ... then
  begin
    if ... then
      exit;
  end;

Alles andere sind Modeerscheinungen, beim debugen rächt sich das.

[Dejan Vu]

Oder einfach so (das ist sogar nicht nur besser, sondern besserer!):

Delphi-Quellcode:

if ... then
  if ... then

Alles andere sind lächerliche Versuche der Tastaturmafia, uns zu überflüssigem Tippen zu verleiten, um den Tastaturumsatz anzukurbeln.

[Mavarik]

Auch wieder ein super Thread-Titel

[Popov]

Damit glaubt jeder wieder an Hexen:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  TTimer(Sender).Interval := 10;
  Left := Left + (Random(5) - 2);
  Top := Top + (Random(5) - 2);
end;

[idefix2]

@Popov
Es ist völlig egal, wie du es schreibst, der Debugger springt immer in die Zeile mit dem Exit, auch wenn die Bedingung nicht erfüllt ist. Ich habe jetzt extra alle Zeilenumbruch-Varianten ausprobiert.


@Dejan Vu
Wenn das erste if einen else Zweig hat und das zweite nicht, geht es ohne begin ... end gar nicht.

[himitsu]

Man könnte ja mal im Debugger schauen, was für ein Code an der Stelle liegt.

[Popov]

Zitat von idefix2:

@Popov
Es ist völlig egal, wie du es schreibst, der Debugger springt immer in die Zeile mit dem Exit, auch wenn die Bedingung nicht erfüllt ist. Ich habe jetzt extra alle Zeilenumbruch-Varianten ausprobiert.

Ob es hier so ist oder nicht, ist irrelevant. Sowas rächt sich gelegentlich.

Was den Vergleich angeht, so konnte ich dein Problem ein mal reproduzieren. Ich hab es genauso wie du geschrieben, nur wusste ich nicht ob er nun in der then oder exit Ziele ist. Also habe ich die Ausführung noch mal unterbrochen, es auf zwei Zeilen verteilt und wieder gestartet. Das zweite mal hat es nicht geklappt. Selbst nachdem ich es wieder rückgängig gemacht habe. Ich hab es dann noch ein Dutzend mal gestartet, es ging jedes mal durch.

[Dejan Vu]

Zitat von idefix2:

@Dejan Vu
Wenn das erste if einen else Zweig hat und das zweite nicht, geht es ohne begin ... end gar nicht.

Klar geht das

Delphi-Quellcode:

if foo then
  if bar then
    doBar()
  else 
else
  doFoo();

Nicht, damit das hier zu einem Glaubenskrieg für/wider überflüssiger Umschließung mit begin/end führt. Was für den Einzelnen besser lesbar ist, steht auf einem anderen Blatt. Nur ein 'begin/end' für eine Zeile einzuführen halte ich und ca. 50% der Entwickler für überflüssig und die anderen 50% nicht. Beide haben ihre Gründe. Man gewöhnt sich an beide Lesarten.