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
