Mein Delphi-Style

[Mithrandir]

Zitat von Dipl Phys Ernst Winter:

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;

Und so unterscheiden sich die Geschmäcker. Für mein Verständnis sieht der obige Code ziemlich - sit venia verbo - dahingerotzt aus.