Eure besten Quellcode Kommentare...

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