Eure besten Quellcode Kommentare...

[haentschman]

Delphi-Quellcode:

// (funktioniert) ZQueryFilter.SQL.Add('and BEZEICHNUNG in (select BEZEICHNUNG from WARTUNGP where TATIGKEIT = :Tatigkeit and STATUS = 3 and NUMMER = :Nummer) ');

...eben gefunden ! Ich frage mich nur, warum ich das auskommentiert habe wenns funktioniert :gruebel: Es gibt Sachen, die muß man nicht verstehen... :gruebel:

[Phoenix]

Zwar kein Kommentar, aber trotzdem genial (gerade in einem Stückchen VB gefunden):

Code:

If count > 0 Then
    Set pEntry = pEntries(0)
    MsgBox pEntry.DN
Else
    MsgBox "Njet gfundovski"
End If

[blackdrake]

Delphi-Quellcode:

// Hat der Dabbes das Passwort vergessen?
if ($passwort == '')
{
  echo ...;
}

[axellang]

Hallo,

gut das ich mich an diesen Thread erinnert habe...

Hier ein wirklich weitsichtiger Kommentar aus der Unit XSBuiltIns (Borland SOAP Support):

Delphi-Quellcode:

TXSBaseDate = class
  private
    { place holder for future work supporting years with greater than 4 digits }
    FAdditionalYearDigits: Word;

Wer will da noch behaupten das Delphi tot ist?


Axel

[Chrissi91]

Meine besten Kommentare sind immer die aus dem Info GK gewesen. Da kann man sich nicht wirklich konzentrieren, nicht mal um Kommentare zu schreiben (wenn jemand an der Leinwand im Unterricht CS spielt und der Lehrer zuguckt). Naja damals war das toll mit 5 Leuten im Kurs. :D

Wir hatten im Schnitt 1x in der Woche. Wenn es dann hieß PCs ausmachen und ich saß an einem Problem, habe ich über die Problem-Prozedur geschrieben:

Delphi-Quellcode:

//WICHTIG!!!!! UNBEDINGT MACHEN!

1 Woche später: WTF?

:D:D:D:D

Sowas passiert mir andauernd, dass ich vergesse hinzuschreiben, wo ich einen Fehler habe. Denn meistens dauert es dann wieder ne Weile, bis ich weiß, was nicht funktioniert hat.

[FAlter]

Hi,

gerade mal nen Code durchgesehen:

Delphi-Quellcode:

//alter Code:
    try
      //Hmm wie sonst an den string kommen außer über noch schlimmere umwege?
      RaiseLastOSError;
    except
      on E: Exception do
        ShowMessage('Das Installationsprogramm konnte nicht gestartet werden!'#13
          + E.Message);
    end;


//neuer Code:
    ShowMessage('Das Installationsprogramm konnte nicht gestartet werden!'#13 +
      SysErrorMessage(GetLastError));

Man beachte das Kommentar im alten Code - und dazu die Lösung im neuen Code.

Wer Hintergrundinfos will: Es handelt sich um den Rückgabewert von CreateProcess, welcher false ist. Was genau schief lief, soll dem User angezeigt werden. Dazu muss man irgendwie an die Fehlermeldung kommen, die Delphi in der Exception anzeigt. Ein Glück, dass es Shift+Klick gibt. :)

Mfg
FAlter

[arbu man]

Code:

  # Profile display not done jet, but guests must not know that
  O::Error('Profil is private', 'Error');

[Balu der Bär]

Zitat:

Zitat von arbu man

Code:

  # Profile display not done jet, but guests must not know that
  O::Error('Profil is private', 'Error');

Jet? Etwa ein Düsen-Jet? :mrgreen:

[mkinzler]

J oder Y, was ist da schon der Unterschied :zwinker:

[mr_emre_d]

Code:

...  // thie makes it exiting -- in other words: unstable !!!!!

wtf ...