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:

[freak4fun]

Delphi-Quellcode:

ShowMessage(IntToStr(Random(6) + 1) + ' gewürfelt');

:cheer:

[turboPASCAL]

Delphi-Quellcode:

/////////////////////////// Geht nich gibs nich ///////////////////////////////
program W;uses windows;var i:byte;begin;allocconsole;randomize;for i:=0to 19do
writeln('Ich habe eine'#32,Random(6)+1,#32'gewuerfelt');readln;freeconsole;end.
//////////////////////////////////////////////////////////////////////////////

:wall:

[FAlter]

Guten Morgen,

aber irgendein Beispiel muss man ja für Case-of verwenden, uns es sollte einfach sein. Natürlich ist ein Array eine gute Möglichkeit, aber welches einfache Beispiel hättest du für case-of denn sonst?

Wie auch immer, das was der Lehrer geschrieben hat ist nicht mal für if-then-else ein gutes Beispiel.

Delphi-Quellcode:

{ So, und jetzt zurück zu den Kommentaren. }

:mrgreen:

Mfg
FAlter

[MaBuSE]

Zitat:

Zitat von 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;

Es didaktisch völlig in Ordnung, wenn man bei einem Beispiel zum Erlernen einer Programmiersprache vor/nach jedem Befehl einen Kommentar schreibt was der eigentlich macht.

Delphi-Quellcode:

program Ausgabe; // program muß bei jedem programm die 1. Anweisung sein. 

// Damit wird es eine Konsolenanwendung (DOS Box -> schwarzes Text Fenster)
{$APPTYPE CONSOLE} 

// hier beginnt das Hauptprogramm
begin 
  // Den Text Hello world. ausgeben
  WriteLn('Hello world.');  

  // Auf die Eingabetaste warten
  ReadLn;

// Jedes Programm wird mit einem end. abgeschlossen
end.

Aber hier sollte ja eigentlich nicht diskutiert werden, sondern lustige/sonderbare Kommentare gepostet werden. :wink:

[FAlter]

Hallo!

Zitat:

Zitat von MaBuSE

Zitat:

Zitat von Fussball-Robby

Delphi-Quellcode:

  //besonders übersichtliche Möglichkeit, das gewürfelte auszugeben
end;

Es didaktisch völlig in Ordnung, wenn man bei einem Beispiel zum Erlernen einer Programmiersprache vor/nach jedem Befehl einen Kommentar schreibt was der eigentlich macht.

Gegen das jeden-Schritt-kommentieren habe ich in diesem Fall auch nichts, aber gegen das abschließende Kommentar.

Zitat:

Aber hier sollte ja eigentlich nicht diskutiert werden, sondern lustige/sonderbare Kommentare gepostet werden. :wink:

Wie wärs damit?

Delphi-Quellcode:

//wuppdi

Ich mach manchmal solche komischen Kommentare:

Delphi-Quellcode:

//{
<hier ein Code>
//}

Vor allem in älteren Delphis habe ich das öfters gemacht, jetzt gibt es ja die "Kommentar umschalten" Funktion.

Mfg
FAlter

[MaBuSE]

Zitat:

Zitat von FAlter

Ich mach manchmal solche komischen Kommentare:

Delphi-Quellcode:

//{
<hier ein Code>
//}

Vor allem in älteren Delphis habe ich das öfters gemacht, jetzt gibt es ja die "Kommentar umschalten" Funktion.

Ich verwende im Moment ausschliesslich // als Kommentar.
Früher habe ich auch {...} im code verwendet um mehrzeilige Kommentare zu realisieren.
CodeBlöcke habe ich dann immer mit (* ... *) auskommentiert.

Das kann man nämlich schachteln ;-)

Delphi-Quellcode:

...
// Auskommentieren mit (* ... *)
...
  if False then 
  begin
    // mach was
  end;
  {
  hier wird was ganz tolles gemacht...
  deshalb gibts auch 2 Kommentarzeilen ;-)
  }
  if True then 
  begin
    // mach was
  end;
...
(*
  if False then 
  begin
    // mach was
  end;
  {
  hier wird was ganz tolles gemacht...
  deshalb gibts auch 2 Kommentarzeilen ;-)
  }
  if True then 
  begin
    // mach was
  end;
*)
...
  if False then 
  begin
    // mach was
  end;
  {
  hier wird was ganz tolles gemacht...
  deshalb gibts auch 2 Kommentarzeilen ;-)
  }
  if True then 
  begin
    // mach was
  end;
...

[freak4fun]

Schlimm was das Internet aus uns macht. :mrgreen:

Delphi-Quellcode:

procedure TSpkDS.Save(AFileStream: TFileStream);
begin

  // ... Hier könnte Ihre Werbung stehen ...

end;

[ryLIX]

Zitat:

Try
Create_conn()
log = True
Catch ex As Exception
ErrorLog(ex.Message) 'User dont need to be informed :D
End Try
Timer1.Enabled = True 'Go for it Dude :D

Aus meinem aktuellem Projekt in VB.Net ^^

grml der übernimmt die code einrückung nicht im zitat :evil:

[fkerber]

Hi!

Zitat:

Zitat von ryLIX

Zitat:

grml der übernimmt die code einrückung nicht im zitat :evil:

Dann verwende doch Code-Tags - die sind ja extra für Code...

Ciao, Frederic

[DeddyH]

[quote="fkerber"]Hi!

Zitat:

Zitat von ryLIX

Zitat:

grml der übernimmt die code einrückung nicht im zitat :evil:

Dann verwende doch Code-Tags - die sind ja extra für Code...


Ciao, Frederic

Ach deshalb heißen die so :stupid:

[Matze]

@Frederic: Darin kann man aber keine [color]-Tags mehr verwenden. Dafür sind aber die [pre]-Tags da. Mit denen geht das.

@ryLIX: Also wenn du aktuell so kommentierst, dann würde ich mir mal Gedanken machen. :stupid:

[alzaimar]

Keine Kommentare, aber nette Code-Anekdoten...
Ich hatte mal eine Debug-Ausgabe, wenn eine Objektinstanz aus Versehen nil war. Blöderweise hatte ich vergessen, sie rauszunehmen. Nach einigen Monaten rief die Sekretärin an und erzählte mir, das sie ab und zu so eine komische Meldung auf dem Bildschirm hat. Irgendeine Abkürzung. Die Quellcodezeile war schnell gefunden:

Delphi-Quellcode:

If Not Assigned (TheObject) Then
  ShowMessage('Shy C');

Gott-Sei-Dank hat sie es nicht laut auf englisch vorgelesen... :mrgreen: Immerhin hatte sie keine AV-Meldung.

Im selben Projekt (grauenvoll unter Zeitdruck zusammengefrickelt) platzte dem Kunden der Kragen und er stellte mich zur Rede:

Zitat:

Zitat von Der Kunde

Ich will nie wieder die 'Access Violation' Meldungen mehr sehen. Sorgen Sie dafür, das diese Meldungen nicht mehr erscheinen!".

Ok: Ein freier Mitarbeiter von mir setzte sich an den Rechner und implementierte:

Delphi-Quellcode:

Procedure TMainForm.ApplicationEventsOnException(Sender: TObject; E: Exception);
Begin
  If Pos('violation', e.message) <> 0 Then Begin
    Showmessage('Es ist ein externes Synchronisationsproblem mit dem Server aufgetreten, bitte ENTER drücken.');
    ApplicationEvents.CancelDispatch;
  End;
End;

Ich stand vor der Wahl, ihn zu feuern, oder ein Bier zu spendieren. Ich entschied mich spontan für Letzteres. :lol:

[DeddyH]

Das nenn ich ja mal kreative Fehlerbehandlung :lol:

[alzaimar]

Deswegen das Bier und die weitere Zusammenarbeit. Ich konnte ihn dazu bewegen, den Kontext einer Kundenbeschwerde zu erfassen und seinen Wunsch entsprechend umzusetzen. Kunden soll man ernst, aber nicht wörtlich nehmen.

[worker]

Bin mal gemein:

wenn er die Prozedur so implementiert hätte, wie Du sie oben gepostet hast, dann hättest Du ihn doch besser feuern sollen - denn so wird diese Bedingung niemals eintreten :zwinker:

Ansonsten: feiner Zug von Dir :)

[alzaimar]

Zitat:

Zitat von ryLIX

...'User dont need to be informed :D

Be me not angry, but I would me times thoughts maken, if I not better my motherlanguage to commenting taken shall. What I therewidth say want: Verwende Deutsch, dann machst Du dich nicht so zum Hömmel. :zwinker:

[3_of_8]

Das ist Slang. :mrgreen:

[mleyen]

Delphi-Quellcode:

for i := Random(500) to 1000+Random(500+Random(250)) do
begin // Do Crap, so its harder to Decompile

Lol, gehts noch?! :cyclops:
(Die Schleife da wird ausgeführt, falls ein Cheat im Spiel erkannt wurde. xD)

[Jens Schumann]

Kommentare :gruebel:

[jbg]

// Ungetestet, bei Bedarf anpassen

[MaBuSE]

Zitat:

Zitat von jbg

// Ungetestet, bei Bedarf anpassen

Ich hab neulich mal (sinngemäß) folgendes gelesen:

Delphi-Quellcode:

// angepasst, bei Bedarf testen

Daran musste ich gerade denken, als ich Deinen Kommentar gelesen habe.

[Kalfany]

Zitat:

// Identische Anrufe innerhalb von 2 Minuten ignorieren. In diesem Fall
// handelt es sich vermutlich nur um einen Bug des TAPI-Treibers
// (oder einen sehr hartnäckigen Kunden...)

:mrgreen:

[Mikescher]

Delphi-Quellcode:

Percent := ((MB / 100) * 100); // Ist zwar sinnlos aber ich machs trotzdem

:mrgreen:

[codecandies]

sehr lustige Source Code Kommentare werden bei Code Candies gesammelt (nicht nur Delphi).

z.B.

Delphi-Quellcode:

// This job would be great if it wasn’t
// for the f**king customers.

[Neutral General]

Hi,

Hab auch was. Nicht so der Brüller aber ganz ok:

Code:

try
{
   // *Code*
}
catch
{
            // Passiert fast immer. Halb so tragisch
}

[FAlter]

Hi,

habe eben nach einer Tastenkombination gesucht und dann fiel mir nichts besseres ein als die F4-Taste, weil:

Delphi-Quellcode:

case Key of
    VK_F4:  //in Anlehnung an die F4-Hilfe bei SAP :-)
    //Autoververvollständigung Verlag

Immerhin, funzt. :) Und die Taste war noch nicht anders belegt. (Aber ich werde jetzt nicht Enter durch F8 ersetzen.)

Mfg
FAlter

[Kalfany]

Delphi-Quellcode:

...
begin
  // inherited  // kein inherited!!!
...
end;

:wiejetzt:

[phreax]

hab heute ein älteres Projekt entbuggt, dabei auf folgende Zeile gestoßen:

Delphi-Quellcode:

    //Note @ myself: Wenn Du das nach 3 Monaten noch verstehst geb ich einen aus!
    TStart.Create(TStartList(Data)).Assign(GetStart(Sender, Node))

und da sag nochmal einer, in Delphi könne man nicht so kryptisch schreiben wie in c...

[himitsu]

und wieviele Monate isses inzwischen her?

[phreax]

Zitat:

Zitat von himitsu

und wieviele Monate isses inzwischen her?

So ca. 6... und wie versprochen hab ichs auch erst nach 3 Minuten entsetzt draufstarren kapiert ;)