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

[mr_emre_d]

So mache ich es immer und hatte nie Probleme damit, mich in Codes, die ich länger nicht mehr angerührt hatte, wieder einzufinden

Code:

// LF = Zeilenvorschub
// -  = Leerzeichen -- da bestimmte Stellen im Code Abschnitt nicht richtig formatiert werden !
TData = Record
--X, Y,
--Z, A: Single;
--Wow, Woooow,
--WowWowWoW: String;
end;

procedure-Name(); // "()" auch wenn keine var übergeben werden !
var  // + LF
--X, Y,  // max 2 vars in einer Zeile !
--i, j: Integer;
--aha: TData;
begin
--doBlub1();  // Methodenaufruf
--if True then
--begin
----doBlub2();  // auf wenn nur 1 Zeile Code ausgeführt werden muss: begin und end dürfen nicht fehlen !
--end else      // entspricht nicht der Styleguide ! aber somit spart man sich eine Zeile und sieht auch besser aus :P
--begin
----doBlub3();
----doBlub4();
--end;
--X := -10;
--Y := ABS( X );  // --> proc/func(-Value-);
--aha.Z := 0;
--for i := Round( X ) to Round( Y ) do  
--begin
----with aha do
----begin
------Z := Z + i;
----end;
--end;
--// AUSNAHMEN:
--for i := Round( X ) to Round( Y ) do // wenn in der Schleife mit irgendwelchen datenstrukturen gearbeitet wird, dann...
--with Aha do
--begin
--  Z := Z + i;
--end; 
--with Aha do
--begin  // das gilt auch für Var/Struktur-Deklarationen
----X         := 10;
----Y         := Random();  // auch wenn functionen keine variablen verlangen: "()" dürfen nicht fehlen !
----Wow       := X;
----Woooow    := Wow;
----WowWowWoW := Woooow; 
--end;
end;

MfG