Bei sowas brauche ich Leerzeilen, damit ich selber mit klar komme:
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;
Das zieht meinen Code dann immer auseinander. Aber wenn soviel direkt aufeinander sitzt springe ich zwischen den Zeilen und verstehe nicht s mehr
(wohl ein persönliches Problem)
Operatoren, Zuweisungs/Vergleichszeichen dürfen bei mir meistens auch nicht auf der Variable kleben. Ich übersehe dann beim überfliegen geflissentlich das Symbol.