![]() |
AW: Eure besten Quellcode Kommentare...
Wenns ginge, würde ich Dir dafür ein "Sternchen" geben, MaBuSE! :thumb:
|
AW: Eure besten Quellcode Kommentare...
Zitat:
|
AW: Eure besten Quellcode Kommentare...
Zitat:
|
AW: Eure besten Quellcode Kommentare...
Code:
(kein if, keine Prüfung)
allControllersHealthy := True; // Wir sind Optimisten |
AW: Eure besten Quellcode Kommentare...
...da ist jeder Kommentar unötig. :cry:
In dem aktuellen Projekt gefunden:
Delphi-Quellcode:
(Namen zum Schutz des Verursachers geändert :-D)
if (not Data.FDFix.Active) then
begin Data.FDFix.Active := False; end; |
AW: Eure besten Quellcode Kommentare...
Zitat:
|
AW: Eure besten Quellcode Kommentare...
Zitat:
Schau die das Beispiel mal an. Ok ist etwas konstruiert, aber so was in der Art habe ich leider schon gesehen. :( Nur wenn Active False ist und nochmal False gesetzt wird, passiert was. Du entfernst bei einem Refactoring diese Zeilen und in der Produktion beim Kunden knallts. Aus diesem Grund sollte so was kommentiert werden !!!. :duck:
Delphi-Quellcode:
Ach ja das Programm bringt folgende Ausgabe:
program Data;
{$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils; type TFDFix = class private FActive: Boolean; procedure SetActive(const Value: Boolean); published property Active: Boolean read FActive write SetActive; end; var FDFix: TFDFix; { FDFix } procedure TFDFix.SetActive(const Value: Boolean); begin if Value = FActive then WriteLn('Erwarte das Unerwartete ;)') // In dieser Zeile könnte z.B. etwas wichtiges gemacht werden, was einen Fehler verhindert. else FActive := Value; end; begin try WriteLn('Start'); FDFix := TFDFix.Create; try WriteLn('1: Data.FDFix.Active := True;'); Data.FDFix.Active := True; // hier passiert nix if (not Data.FDFix.Active) then begin WriteLn('2: Data.FDFix.Active := False;'); Data.FDFix.Active := False; // das wird ja nie aufgerufen end; WriteLn('3: Data.FDFix.Active := False;'); Data.FDFix.Active := False; // hier passiert nix if (not Data.FDFix.Active) then begin WriteLn('4: Data.FDFix.Active := False;'); Data.FDFix.Active := False; // ups end; finally WriteLn('Ende'); FDFix.Free; end; ReadLn; except on E: Exception do WriteLn(E.ClassName, ': ', E.Message); end; end.
Code:
Start
1: Data.FDFix.Active := True; 3: Data.FDFix.Active := False; 4: Data.FDFix.Active := False; Erwarte das Unerwartete ;) Ende |
AW: Eure besten Quellcode Kommentare...
Delphi-Quellcode:
Wer weiß denn schon, ob
if (not Data.FDFix.Active) then
begin Data.FDFix.Active := False; end;
Delphi-Quellcode:
auch wirklich gleich
not True
Delphi-Quellcode:
ist? Der Code ist vermutlich schon für den Einsatz auf einem Quanten-Computer vorbereitet. (Schönen Gruß von Erwin Schrödinger)
False
|
AW: Eure besten Quellcode Kommentare...
Zitat:
PS: FDFix war eine Query :stupid: |
AW: Eure besten Quellcode Kommentare...
Zitat:
Delphi-Quellcode:
Das sieht doch gleich viel wichtiger aus. :thumb: :stupid:
...
if Data.FDFix.State in [dsInactive, dsOpening] then Data.FDFix.Close; ... Ist aber faktisch das selbe, da:
Delphi-Quellcode:
ps: Falls es niemand gemerkt hat, dieser Beitrag ist ironisch gemeint. haentschman hat Recht. Das ist natürlich Blödsinn.
...
function TDataSet.GetActive: Boolean; begin Result := not (State in [dsInactive, dsOpening]); end; ... procedure TDataSet.Close; begin Active := False; end; ... |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:21 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz