Eure besten Quellcode Kommentare...

[Luckie]

Gerade in alten Sourcen von mir gefunden:

Delphi-Quellcode:

// unter Win 98 bin ich schon am Ziel;
  // also nur ein bisschen "so tun als ob ...", um
  // die Programmstruktur nicht ändern zu müssen
  // :o)

[MaBuSE]

Aus einem bekannten OpenSource Programm.

Delphi-Quellcode:

...
        if Fix<>Nil then
          Exit {Paranoic - can't happen, but i trust no one};
...

[Teekeks]

jetz mal von mir aus meinem aktuellen projekt:

Delphi-Quellcode:

 begin
   //Daten einlesen
     //hab grad keine lust...
     //hier mach ich spaeter weiter
   //\Daten Einlesen
   //Mitteilung schreiben
   EreignissM.Lines.Add('Buch erfolgreich eingetragen!');
   //\Mitteilung schreiben
   //ursprung herstellen + Hilfe Laden

[Relicted]

Ok zwar kein kommentar... aber das sollte man auch unkommentiert drin lassen...

Delphi-Quellcode:

    if id = 28751 then
      id := 28751;

[HenKst]

wollte grade meinen HTMLparser überarbeiten und stolper über folgenden kommentar

Delphi-Quellcode:

  if tmps[1]<>'/' then begin
    Result.AddItem(WorkThemTags(tmps));
   end else begin
    //is doof-.-
    sleep(0);
  end;

ich fürchte der läuft da aber auch noch regelmässig durch^^

[Fussball-Robby]

Hier ein Stück original Quelltext von meinem Informatiklehrer.. JA, richtig gehört, von einem Informatiklehrer!

Delphi-Quellcode:

var
  i: Integer;
begin
  i := Random(6) + 1;//Würfeln
  if i = 1 then
    ShowMessage('1 gewürfelt')//Wenn i=1 dann '1' ausgeben
  else if i = 2 then
    ShowMessage('2 gewürfelt')//Wenn i=2 dann '2' ausgeben
  else if i = 3 then
    ShowMessage('3 gewürfelt')//Wenn i=3 dann '3' ausgeben
  else if i = 4 then
    ShowMessage('4 gewürfelt')//Wenn i=4 dann '4' ausgeben
  else if i = 5 then
    ShowMessage('5 gewürfelt')//Wenn i=5 dann '5' ausgeben
  else if i = 6 then
    ShowMessage('6 gewürfelt')//Wenn i=6 dann '6' ausgeben
  //besonders übersichtliche Möglichkeit, das gewürfelte auszugeben
end;

Ich frage mich manchmal echt, warum der Informatik unterrichtet..

[FAlter]

Hi,

wenn man z. B. die Zahlworte ausgeben würde, würde ich das ja als besonders gutes Be3ispiel ansehen, um case of zu erklären, und dann mal im Vergleich mit If-then-else if... aber das wäre dann eher die unübersichtliche Möglichkeit. Im Normalfall fände ich Format ziemlich übersichtlich.

Aber was erwartet man schon von Lehrern oder Dozenten?

Java-Dozent:

Wer arbeitet denn schon mit Delphi? Das ist doch eine uralt-prozedurale Sprache.

Mfg
FAlter

[Relicted]

Zitat von FAlter:

wenn man z. B. die Zahlworte ausgeben würde, würde ich das ja als besonders gutes Be3ispiel ansehen, um case of zu erklären...

Also ich würde damit inttostr() oder format() erklären ^^ case, if und co sind bissl zu viel

Delphi-Quellcode:

var
  i: Integer;
begin
  i := Random(6) + 1;//Würfeln
  ShowMessage(IntToStr(i)+' gewürfelt');
  //besonders übersichtliche Möglichkeit, das gewürfelte auszugeben
end;

)

[FAlter]

Hi,

ich meine ja auch so was in der Art wie das hier:

Delphi-Quellcode:

case zahl of
  1: ShowMesage('Eins gewürfelt.');
  ...
end;

Mfg
FAlter

[Fussball-Robby]

Zitat von FAlter:

ich meine ja auch so was in der Art wie das hier:

Delphi-Quellcode:

case zahl of
  1: ShowMesage('Eins gewürfelt.');
  ...
end;

Dann würde ich lieber direkt ein const Array[1..6] of String mit den entsprechenden Worten nehmen. Aber mein Informatiklehrer würde niemlas etwas einfaches oder übersichtliches programmieren der schreibt ja auch bis zu 10 Befehle in eine Zeile