Mein Delphi-Style

[R2009]

Hi,
jetzt auch noch mein Senf dazu:

Das ist doch ein gutes Beispiel für ich sag mal Spaghetticode. Völlig unlesbar und das im Wesentlichen durch die dämliche Anordnung der begin und ends.

Delphi-Quellcode:

if k=kMax then A[k]:= A[k-1]/A[k] 
  if a=0 then Result:= 0 else if a>0 then Result:= 1 else Result:= -1; 
  if Sender=mnPrintGraphOben then h:= ro             // 'Drucken|Graph oben' 
                             else h:= rm;            // 'Drucken|Graph unten'                        
  for k:= 0 to kMax do A[k]:= 0; 
  for i:= 1 to iMax do begin temp:= A[i]; A[i]:= B[i]; B[i]:= temp end; 
  for i:= 2 to m do begin 
    for k:= 1 to i-1 do B[i]:= B[i] - A[r(i,k)]*B[k]; 
    B[i]:= B[i]/Abs(A[r(i,i)]) end; 
  with Image1.Canvas do begin 
    MoveTo(DL, D0 - Round(sy*(F(xMin)-yMin))); 
    for i:= 0 to 320 do begin 
      x:= xMin + i*dx; 
      LineTo(DL + 2*i, D0 - Round(sy*(F(x)-yMin))) end end;

was für ein Unterschied:

Delphi-Quellcode:

  //Kommentar
  if k=kMax then A[k]:= A[k-1]/A[k]; 
  
  //Kommentar
  if a=0 then Result:= 0 else if a>0 then Result:= 1 else Result:= -1; 
  
  //Kommentar
  if Sender=mnPrintGraphOben then h:= ro             // 'Drucken|Graph oben' 
                             else h:= rm;            // 'Drucken|Graph unten'                        
  //Kommentar
  for k:= 0 to kMax do A[k]:= 0;

  //Kommentar 
  for i:= 1 to iMax do 
    begin 
      temp:= A[i]; A[i]:= B[i]; B[i]:= temp;
    end; 

  //Kommentar
  for i:= 2 to m do 
    begin 
      for k:= 1 to i-1 do B[i]:= B[i] - A[r(i,k)]*B[k]; 
      B[i]:= B[i]/Abs(A[r(i,i)]) 
    end;
  
  //Kommentar 
  with Image1.Canvas do 
    begin 
      MoveTo(DL, D0 - Round(sy*(F(xMin)-yMin))); 
      for i:= 0 to 320 do 
        begin 
          x:= xMin + i*dx; 
          LineTo(DL + 2*i, D0 - Round(sy*(F(x)-yMin))) 
        end
    end;

Das ist Pascal-Style wie er leibt und lebt und nicht dieser einge"C"te Kodemischmasch.
Mich kriegt ihr von diesem Stil nicht weg und gerade das macht den Kode übersichtlich und lesbar.

Nebenbeibemerkt find ich
void irgendwas()
{
}
auch besser als
Nebenbeibemerkt find ich
void irgendwas(){
}


Viele Grüsse