Einrücken ::: ::: Wie rückt ihr ein?

[oldmax]

Hi
Auch wenns mittlerweile vielleicht schon langweilig wird, läßt man die vielen Links mal weg und antwortet auf die Frage direkt. wär's vielleicht mit 10 Antworten getan.
( Viel mehr Variationen beim Einrücken kann ich mir eigentlich nicht vorstellen ... )
Wenn mich einer fragt, wie rückst du ein ist beine Antwort:

Delphi-Quellcode:

Procedure ....
Begin
  If  ... then 
  begin
    While .... do
    begin
      //einrücken, das ist die Anweisungsliste der While - Schleife etc.
    end;
    //Auch das hier ist eingerückt, weilszum If gehört....
  end;
  If  ... then 
  Begin
    ...// zur Abwechslung mal else
  end else
  Begin
    ... //so steht begin immer am Anfang des Bereiches
    ... //  und in der Spalte des zugehörigen End
  end;
  //und das zur Procedure....
end;

Ich kann nicht verstehen, warum manche nicht darauf achten. Vernünftig einrücken erhöht die Lesbarkeit und hilft immens bei der Fehlersuche, speziell bei fehlenden End-Anweisungen.
Auch lassen sich Bereiche besser untersuchen.
Ob nun 2, drei oder 4 Leerzeichen oder Tabs oder sonstwas zum Einrücken benutzt wird, halte ich eigentlich nicht für so wichtig. Der Code muß lesbar sein, sauber getrennt. Darauf kommt es an. Häufig ist der Ausweg von großen Begin ... End -Bereichen die Möglichkeit, Proceduren oder Functions aufzurufen. So kann z.B. eine Anweisung
If (Bedingung) then TuDies
else TuDas
So, jetzt hab ich hoffentlich auf die Frage eine Antwort gegeben.
Gruß oldmax