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;

:gruebel:

[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;

:oops:

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! :stupid:

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.

:wall:

Mfg
FAlter

[Relicted]

Zitat:

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 :D

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;

:-)) :cheer:

[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:

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 :drunken: der schreibt ja auch bis zu 10 Befehle in eine Zeile :mrgreen: