Re: Eure besten Quellcode Kommentare...
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) |
Re: Eure besten Quellcode Kommentare...
Aus einem bekannten OpenSource Programm. ;-)
Delphi-Quellcode:
...
if Fix<>Nil then Exit {Paranoic - can't happen, but i trust no one}; ... |
Re: Eure besten Quellcode Kommentare...
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 |
Re: Eure besten Quellcode Kommentare...
Ok zwar kein kommentar... aber das sollte man auch unkommentiert drin lassen...
Delphi-Quellcode:
:gruebel:
if id = 28751 then
id := 28751; |
Re: Eure besten Quellcode Kommentare...
wollte grade meinen HTMLparser überarbeiten und stolper über folgenden kommentar
Delphi-Quellcode:
:oops:
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^^ |
Re: Eure besten Quellcode Kommentare...
Hier ein Stück original Quelltext von meinem Informatiklehrer.. JA, richtig gehört, von einem Informatiklehrer! :stupid:
Delphi-Quellcode:
Ich frage mich manchmal echt, warum der Informatik unterrichtet.. :?
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; |
Re: Eure besten Quellcode Kommentare...
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 |
Re: Eure besten Quellcode Kommentare...
Zitat:
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: |
Re: Eure besten Quellcode Kommentare...
Hi,
ich meine ja auch so was in der Art wie das hier:
Delphi-Quellcode:
Mfgcase zahl of 1: ShowMesage('Eins gewürfelt.'); ... end; FAlter |
Re: Eure besten Quellcode Kommentare...
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:26 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz