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