Der Epina Delphi-Kurs bietet Ihnen eine allgemeine Einführung in das Programmieren mit Delphi/Pascal. Mit vielen ausgearbeiteten Beispielen können Sie direkt in die Delphi-Programmierung einsteigen. Mehr dazu finden Sie hier....

Home Formatierung von Pascal-Code Richtlinien zur Formatierung von Delphi Code Hierarchie-Ebenen und Einrückungen Einrückungen für "begin" und "end"
See also: Einrückungen bei 'else-if' Leitern, Einrückungen von 'if'-statements ohne 'else', Einrückung bei 'if' mit 'else'-Teil 
del.icio.us Reddit Facebook StumbleUpon MySpace Twitter

Einrückungen für 'begin' und 'end'

begin und end von Anweisungsblöcken müssen dieselbe Einrückungstiefe aufweisen:
 

...
...
j := 1;
for ii:= 1 to FNumData do         { shuffle data according to bit reversal }
  begin
  i := 2*ii-1;
  if (j > i) then
    begin
    auxr := Array1D(FData^)[j];
    Array1D(FData^)[j] := Array1D(FData^)[i];
    Array1D(FData^)[i] := auxr;
    auxr := Array1D(FData^)[j+1];
    Array1D(FData^)[j+1] := Array1D(FData^)[i+1];
    Array1D(FData^)[i+1] := auxr;
    end;
  m := FNumData;
  while ((m>=2) and (j>m)) do
    begin
    j := j-m;
    m := m div 2;
    end;
  j := j+m;
  end;
mmax := 2;                           { now take the 1-point transforms and }
...
...
 

Negativbeispiel:

...
...
j := 1;
for ii:= 1 to FNumData do         { shuffle data according to bit reversal }
  begin
    i := 2*ii-1;
    if (j > i) then
    begin
      auxr := Array1D(FData^)[j];
      Array1D(FData^)[j] := Array1D(FData^)[i];
      Array1D(FData^)[i] := auxr;
      auxr := Array1D(FData^)[j+1];
      Array1D(FData^)[j+1] := Array1D(FData^)[i+1];
      Array1D(FData^)[i+1] := auxr;
    end;
  m := FNumData;
  while ((m>=2) and (j>m)) do
    begin
      j := j-m;
      m := m div 2;
    end;
  j := j+m;
  end;
mmax := 2;                           { now take the 1-point transforms and }
...
...
 

Home Formatierung von Pascal-Code Richtlinien zur Formatierung von Delphi Code Hierarchie-Ebenen und Einrückungen Einrückungen für "begin" und "end"

Last Update: 2010-12-19