Zählvariable ändert ihren Wert

[kralle]

Moin,

heute scheint echt nicht mein Tag zu sein.

laz_schleife.png (24.86 KiB) 5080 mal betrachtet

Wenn das erste Mal die Zeile "durchlauf:= 0;" durchlaufen wird, ist Wert "0".
Auch ist iMax nach dem ersten Durchlauf 7.
Jetzt wird das erste Mal die Zuweisung der "StringGrid.Cell" durchlaufen und plötzlich ist "durchlauf = 6" und die Schleife wird nach einem Durchlauf beendet.
Ich habe das im Debug-Modus mittels F7 durchlaufen lassen und komme nicht dahinter, warum "durchlauf" plötzlich 6 ist.
Ich hat auch schon andere Variablen-Namen probiert, damit der Wert nicht aus einer anderen Routine beeinflusst wird.
Auch in dem Memo finden sich nicht die Zahlen 1-6, sondern nur die 6. Auch wird nur einem Eintrag das '###' angehängt.
Was passiert hier?

Gruß Heiko

[shokwave]

Das Semikolon hinter dem do sieht aber nicht gewollt aus...

[fliegermichl]

Ja, der Zählerstand nach einer For Schleife ist laut Definition undefiniert.
Durch das Semikolon hinter do ist die (Leer) Schleife beendet, bevor der begin Block startet.

[kralle]

Ich werde rot und stelle mich in de Ecke zum Schämen ...

Das Semikolon hinter dem do sieht aber nicht gewollt aus...

Danke.

Gruß Heiko

[kralle]

Moin,

Ingo war schneller ....

Gruß Heiko

[martin_frb]

Und daher sieht das bei mir auch direkt im Editor nach Fehler aus.

emptyloop.png (58.51 KiB) 5041 mal betrachtet

Mehr: https://wiki.freepascal.org/New_IDE_fea ... t.2Fmarkup

[fliegermichl]

Und daher sieht das bei mir auch direkt im Editor nach Fehler aus.
...

Coole Sache. Hab ich bei mir auch gleich mal eingestellt.

[Warf]

Ich werde rot und stelle mich in de Ecke zum Schämen ...

Keine sorge, das Problem bist nicht du, das passiert öfter da Lazarus beim autocomplete das Semikolon Automatisch erzeugt.

Man könnte sogar soweit gehen und sagen das die Tatsache das leere statements überhaupt erlaubt sind ist ein Fehler im Sprachdesign. Man braucht leere statements so selten das es in den meisten Fällen ein Fehler ist. Darum haben andere Sprachen explizite "noop" keywords (z.b. pass in python) und erlauben leere statements überhaupt nicht

[Niesi]

Und daher sieht das bei mir auch direkt im Editor nach Fehler aus.

Danke - das ist mal ein echt hilfreicher Tipp - habe ich mir jetzt auch eingerichtet. Das automatisch hinzugefügte Semikolon z. B. kann echt nerven.

Und: Wieder was gelernt ...

[Mathias]

Wieso ist bei mir alles grau und leer ? ( siehe Anhang )
Muss man da noch eine Package installieren ?
Ich habe eine relativ neue Trunk 3.99

@ martin_frb
Was hast du für ein komisches Widget-Set ?
Da musste ich 2x gucken, um zu schauen, welche Reiter in der TreeView links zusammengehören.
Bei mir im Anhang sieht es viele übersichtlicher aus.

[af0815]

Mal eine Liste hinzufügen, dann kann man die Bearbeiten und das Grau verschwindet

[Mathias]

Mal eine Liste hinzufügen, dann kann man die Bearbeiten und das Grau verschwindet

Jetzt schnalle ich es, man muss die Liste selbst befüllen.

Das Problem mit dem "; " habe ich anders gelöst. Ich habe bei mir JEDI so eingrestellt, das er immer en begin und end macht..
Aus dem

Code: Alles auswählen

  for i:=0 to 100 do;
  begin
    WriteLn();
  end;  

wird

Code: Alles auswählen

  for i := 0 to 100 do begin
  end;
  begin
    WriteLn();
  end;    

Wen ich Ctrl+D drücke.

[Maik81SE]

Riesen dank an von meiner Seite für den Tip

[martin_frb]

Am besten auch "do ;" mit einem Leerzeichen. (ggf auch mit 2)

"Match bound at start" => damit "Kommando;" nicht falsch erkannt wird.

";)" kann in "const a: record ... end = ...." vorkommen... Aber so selten...

Meine Liste (Kann man in den editoroptions.xml einfügen, oder per Options Dialog)

Code: Alles auswählen

          <Entry0 SearchTerm="then;" MatchWordBounds="soBoundsAtStart"/>
          <Entry1 SearchTerm="then ;" MatchWordBounds="soBoundsAtStart"/>
          <Entry2 SearchTerm="else;" MatchWordBounds="soBoundsAtStart"/>
          <Entry3 SearchTerm="else ;" MatchWordBounds="soBoundsAtStart"/>
          <Entry4 SearchTerm=";;"/>
          <Entry5 SearchTerm=";="/>
          <Entry6 SearchTerm="begin;" MatchWordBounds="soBoundsAtStart"/>
          <Entry7 SearchTerm="begin ;" MatchWordBounds="soBoundsAtStart"/>
          <Entry8 SearchTerm=";)"/>
          <Entry9 SearchTerm="; )"/>
          <Entry10 SearchTerm="do;" MatchWordBounds="soBoundsAtStart"/>
          <Entry11 SearchTerm="do ;" MatchWordBounds="soBoundsAtStart"/>
          <Entry12 SearchTerm="try;" MatchWordBounds="soBoundsAtStart"/>
          <Entry13 SearchTerm="try ;" MatchWordBounds="soBoundsAtStart"/>
          <Entry14 SearchTerm=";then"/>
          <Entry15 SearchTerm="; then"/>