Delphi-PRAXiS
Seite 5 von 53   « Erste     345 6715     Letzte »    

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Klatsch und Tratsch (https://www.delphipraxis.net/34-klatsch-und-tratsch/)
-   -   Eure besten Quellcode Kommentare... (https://www.delphipraxis.net/96226-eure-besten-quellcode-kommentare.html)

Dax 15. Jun 2008 19:44

Re: Eure besten Quellcode Kommentare...
 
Eigentlich ist es kein Kommentar, aber es steht als Präambel in einem aktuellen Projekt:
Delphi-Quellcode:
// DONT try this at home
Es ist, ganz nebenbei, der einzige Kommentar...

cware 15. Jun 2008 22:42

Re: Eure besten Quellcode Kommentare...
 
ohje... bin grad darüber gestolpert.... :angel2:
Delphi-Quellcode:
        // UNGENAU!!! - Begin
        NextUser.Deactivated := ((YearA - YearB) * 365 + (MonthA - MonthB) * 30 + (DayA - DayB) < FMaxDeactivatedDays);
        // UNGENAU!!! - End

cheers...

Balu der Bär 15. Jun 2008 22:46

Re: Eure besten Quellcode Kommentare...
 
Aus jedem meiner Projekte:

Delphi-Quellcode:
function XYZ(hm? : Integer): boolean;
begin
  // dödel finden der mir das programmiert
end;
:mrgreen:

Valle 16. Jun 2008 14:48

Re: Eure besten Quellcode Kommentare...
 
Aus einem Python-Programm, das u.a. mit dem Dualsystem rechnet.

Code:
def add_bin(num1, num2):
    return dec_to_bin(bin_to_dec(num1) + bin_to_dec(num2))
Ok, ist kein Kommentar, aber der Quellcode ist trotzdem genial. :mrgreen:

Mit freundlichen Grüßen,

Valle

Hador 16. Jun 2008 23:13

Re: Eure besten Quellcode Kommentare...
 
Etwas habe ich da auch noch anzubieten:

Code:
[...]
do {
   try {
      x = Integer.valueOf(System.console().readLine());
   } catch (NumberFormatException e) {
      // Fehler vor dem Bildschirm:
      // Der Benutzer scheint das Wort "Ganzzahl" nicht zu kennen
      // Fehlerbehandlung: Einfach ignorieren!
   } catch (Exception e) {
      // Wer weiß, was sonst noch fieses passiert...
      System.err.println("Fehler beim Einlesen der Standardeingabe");
   }
} while (x < l || x > h);
[...]

Xzeer 21. Jun 2008 11:12

Re: Eure besten Quellcode Kommentare...
 
hab hier auch mal was gefunden...

Delphi-Quellcode:
ftp.Port:=21;
ftp.Connect;
sleep(100); //nicht unbedingt nötig
ftp.ChangeDir('html');
ftp.ChangeDir('3-test');
nicht unbedingt nötig, aber mann kanns ja mal machen... :wink:

Die Muhkuh 21. Jun 2008 11:16

Re: Eure besten Quellcode Kommentare...
 
Nur als kleine Anmerkung an den Code oben:

Die Indys arbeiten blockierend (synchron), das heißt, dass der Code hinter Connect erst ausgeführt wird, wenn auch wirklich verbunden ist.

Ein einfaches:

Delphi-Quellcode:
ftp.connect;
if ftp.connected then
begin
  ftp.changedir(...);
end;
genügt.

RavenIV 23. Jun 2008 07:45

Re: Eure besten Quellcode Kommentare...
 
Zitat:

Zitat von Leos-Studio
hab hier auch mal was gefunden...

Delphi-Quellcode:
ftp.Port:=21;
ftp.Connect;
sleep(100); //nicht unbedingt nötig
ftp.ChangeDir('html');
ftp.ChangeDir('3-test');
nicht unbedingt nötig, aber mann kanns ja mal machen... :wink:

Wenn jemand mit sleep arbeiten muss, dass stimmt etwas im Ablauf nicht.
Das sleep wird vor allem keine genau definierte Pause sein, weil der Timer dafür zu ungenau ist.

Es gibt WaitFor... oder auch While-Schleifen oder vieles Anderes, was man einsetzen kann.
Aber sleep ist definitiv der falsche Weg.

Nils_13 23. Jun 2008 07:51

Re: Eure besten Quellcode Kommentare...
 
Fast alle Pausen sind unnötig. Wenn ich mit den Sockets direkt in einer Reihe zig verschiedene Verbindungen aufbauen will, erzeuge ich mir ein Socket, gebe es frei, erzeuge ein neues usw. Anstelle davon könnte man auch ein Pause machen, da ein Socket regelrecht Erholung benötigt, allerdings kostet das extrem Zeit -> Pausen sind nicht gut.

RavenIV 23. Jun 2008 08:03

Re: Eure besten Quellcode Kommentare...
 
/ironie on
Also ich gönne meinen Socken als auch ne Pause.
Ich hänge sie am Abend über die Stuhllehne, dann haben sie bis zum Morgen ausgelüftet und ich kann sie wieder anziehen. ;-)
/ironie off


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:22 Uhr.
Seite 5 von 53   « Erste     345 6715     Letzte »    

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