Eure besten Quellcode Kommentare...

[MaBuSE]

Zitat:

Zitat von Maliko (Beitrag 1512497)

Zitat:

Zitat von dummzeuch (Beitrag 1512453)

Besser gar keine Kommentare als falsche oder sinnlose ala

Delphi-Quellcode:

// *******************
// * Prozdur bla     *
// *******************
procedure bla;
var
  i: integer; // Schleifenvariable
begin
  // alle Listenelemente durchlaufen
  for i := 0 to Liste.Count -1 do begin
    // Listenelement verarbeiten
    Process(Liste[i]);
  end;
end;

Leider gibt es immer wieder Firmen die genau sowas wollen. Ich war mal in einer Firma, da sah der Quellcode genauso aus, weil der Entwicklungsleiter darauf bestanden hat, dass jede einzelne Zeile Code kommentiert werden muss. Da kommt dann so ein Müll bei raus. Manchmal habe ich fürs Kommentieren länger gebraucht als für das Schreiben der Funktion.

Dann hätte ich das so gemacht

Delphi-Quellcode:

// *******************
// * Prozdur blub    *
// *******************
procedure bla;
var
  i: integer; // j
begin
  // for j := 0 to MeineListe.Count -1 do begin
  for j := 0 to MeineListe.Count -1 do begin
    // Process(MeineListe[j]);
    Process(Liste[i]);
  end;
end;

da wäre die Verwirrung perfekt :twisted:
oder besser so:

Delphi-Quellcode:

// 
procedure bla;
var
  i: integer; // 
begin
  // 
  for i := 0 to Liste.Count -1 do begin
    // 
    Process(Liste[i]);
  end;
end;

Dann ausdrucken und offline kommentieren. ;)

[rabatscher]

Ich habe mal unseren code auf multithreading umgestellt:

Code:

     // ###########################################
     // #### Release the threads!! harrr
     SetLength(beatDetect, Length(fECGSubTypes));
     for thrIdx := 0 to Length(beatDetect) - 1 do
         beatDetect[thrIdx] := TBeatDetect.Create(fChannels, fECGSubTypes[thrIdx]);

     beatDetect[0].OnProgress := onQrsProgress;

     for thrIdx := 0 to Length(beatDetect) - 1 do
         beatDetect[thrIdx].Start;
         //beatDetect[thrIdx].SyncExecute;
         
     // ###########################################
     // #### Do the beat detection
     for thrIdx := 0 to Length(beatDetect) - 1 do
         beatDetect[thrIdx].WaitFor;