Delphi-PRAXiS
Seite 45 von 53   « Erste     35434445 4647     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)

rokli 16. Jul 2018 13:48

AW: Eure besten Quellcode Kommentare...
 
Wenns ginge, würde ich Dir dafür ein "Sternchen" geben, MaBuSE! :thumb:

MaBuSE 16. Jul 2018 14:02

AW: Eure besten Quellcode Kommentare...
 
Zitat:

Zitat von rokli (Beitrag 1407403)
Wenns ginge, würde ich Dir dafür ein "Sternchen" geben, MaBuSE! :thumb:

Vielen Dank für die Blumen ... :lol:

Neutral General 16. Jul 2018 14:22

AW: Eure besten Quellcode Kommentare...
 
Zitat:

Zitat von MaBuSE (Beitrag 1407405)
Zitat:

Zitat von rokli (Beitrag 1407403)
Wenns ginge, würde ich Dir dafür ein "Sternchen" geben, MaBuSE! :thumb:

Vielen Dank für die Blumen ... :lol:

I see what you did there :mrgreen:

Der schöne Günther 5. Feb 2019 12:40

AW: Eure besten Quellcode Kommentare...
 
Code:
(kein if, keine Prüfung)
allControllersHealthy := True; // Wir sind Optimisten

haentschman 4. Mär 2019 13:37

AW: Eure besten Quellcode Kommentare...
 
...da ist jeder Kommentar unötig. :cry:

In dem aktuellen Projekt gefunden:
Delphi-Quellcode:
if (not Data.FDFix.Active) then
begin
  Data.FDFix.Active := False;
end;
(Namen zum Schutz des Verursachers geändert :-D)

Codehunter 4. Mär 2019 15:24

AW: Eure besten Quellcode Kommentare...
 
Zitat:

Zitat von haentschman (Beitrag 1426904)
...da ist jeder Kommentar unötig. :cry:

In dem aktuellen Projekt gefunden:
Delphi-Quellcode:
if (not Data.FDFix.Active) then
begin
  Data.FDFix.Active := False;
end;
(Namen zum Schutz des Verursachers geändert :-D)

Was denn... Nur so kann man sicher gehen dass es auch wirklich AUS ist und nicht etwa auf STANDBY :lol:

MaBuSE 5. Mär 2019 11:42

AW: Eure besten Quellcode Kommentare...
 
Zitat:

Zitat von haentschman (Beitrag 1426904)
...da ist jeder Kommentar unötig. :cry:

In dem aktuellen Projekt gefunden:
Delphi-Quellcode:
if (not Data.FDFix.Active) then
begin
  Data.FDFix.Active := False;
end;
(Namen zum Schutz des Verursachers geändert :-D)

Das sollte man aber Kommentieren!!! :shock:
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:
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.
Ach ja das Programm bringt folgende Ausgabe:
Code:
Start
1: Data.FDFix.Active := True;
3: Data.FDFix.Active := False;
4: Data.FDFix.Active := False;
Erwarte das Unerwartete ;)
Ende

Uwe Raabe 5. Mär 2019 12:10

AW: Eure besten Quellcode Kommentare...
 
Delphi-Quellcode:
if (not Data.FDFix.Active) then
begin
  Data.FDFix.Active := False;
end;
Wer weiß denn schon, ob
Delphi-Quellcode:
not True
auch wirklich gleich
Delphi-Quellcode:
False
ist? Der Code ist vermutlich schon für den Einsatz auf einem Quanten-Computer vorbereitet. (Schönen Gruß von Erwin Schrödinger)

haentschman 5. Mär 2019 12:20

AW: Eure besten Quellcode Kommentare...
 
Zitat:

Das sollte man aber Kommentieren!!!
...ich meinte nicht das so stehen zu lassen...ich meinte "ohne Worte" :wink:
PS: FDFix war eine Query :stupid:

MaBuSE 5. Mär 2019 13:18

AW: Eure besten Quellcode Kommentare...
 
Zitat:

Zitat von haentschman (Beitrag 1426977)
PS: FDFix war eine Query :stupid:

Dann mach doch einfach folgendes draus, wenn Du dich dann besser fühlst.
Delphi-Quellcode:
...
if Data.FDFix.State in [dsInactive, dsOpening] then Data.FDFix.Close;
...
Das sieht doch gleich viel wichtiger aus. :thumb: :stupid:
Ist aber faktisch das selbe, da:
Delphi-Quellcode:
...
function TDataSet.GetActive: Boolean;
begin
  Result := not (State in [dsInactive, dsOpening]);
end;
...
procedure TDataSet.Close;
begin
  Active := False;
end;
...
ps: Falls es niemand gemerkt hat, dieser Beitrag ist ironisch gemeint. haentschman hat Recht. Das ist natürlich Blödsinn.


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:21 Uhr.
Seite 45 von 53   « Erste     35434445 4647     Letzte »    

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