Eure besten Quellcode Kommentare...

[TiGü]

XE7 - System.Threading - Zeile 3005

Delphi-Quellcode:

procedure TThreadPool.TQueueWorkerThread.ExecuteWorkItem(var Item: IThreadPoolWorkItem);
begin
  try
    try
      Item.ExecuteWork;
    finally
      Item := nil;
    end;
  except
    // ???figure out error handling and exception passing system???
  end;
end;

[Sherlock]

In XE8 ist das ja bestimmt behoben worden...kostet halt extra. :twisted:

Sherlock

[Bernhard Geyer]

Zitat:

Zitat von Sherlock (Beitrag 1311952)

In XE8 ist das ja bestimmt behoben worden.

Nö. Schaut genauso aus

[TiGü]

Aus XE7:

Delphi-Quellcode:

{$IFNDEF ANDROID}
{$IFDEF PIC}
{ Do not remove export or the begin block. }
function GetGOT: Pointer; export;
begin
  asm
        MOV     Result,EBX
  end;
end;
{$ENDIF PIC}
{$ENDIF ANDROID}

Aus XE8:

Delphi-Quellcode:

{$IFNDEF ANDROID}
{$IFDEF PIC}
{ Do not remove export or the begin block. }
function GetGOT: Pointer;
begin
  asm
        MOV     Result,EBX
  end;
end;
{$ENDIF PIC}
{$ENDIF ANDROID}

Merke: Kommentare lügen! Spätestens nach dem ersten Refaktoring!

[blawen]

Zitat:

Zitat von TiGü (Beitrag 1313755)

{$IFNDEF ANDROID}
{$IFDEF PIC}

OT und vielleicht "dumme" Frage: Auf was bezieht sich das PIC - ev. auf IOT und PIC-uProzessoren?

[implementation]

Zitat:

Zitat von blawen (Beitrag 1313764)

OT und vielleicht "dumme" Frage: Auf was bezieht sich das PIC - ev. auf IOT und PIC-uProzessoren?

Damit dürfte Position Independent Code gemeint sein.

[Der schöne Günther]

unit Soap.OPToSOAPDomConv;

Delphi-Quellcode:

begin
    { Old -D6- Header processing logic - left here simply because....}
    AbortRequest := False;
    HeaderProcessor := FindHeaderProcessor(HeaderNamespace, HeaderName, '');
    if HeaderProcessor <> nil then
      HeaderProcessor.ProcessHeader(HeaderNode, HeaderHandled, AbortRequest)
    else
    begin
      UnhandledNode(Format('%s:%s', [HeaderNamespace, HeaderName]), HeaderNode.XML);
      DefaultProcessHeader(HeaderNode, HeaderHandled, AbortRequest);
    end;
    if AbortRequest then
      raise ESOAPDomConvertError.CreateFmt(SHeaderError, [HeaderNamespace, HeaderName]);
  end;

[bcvs]

soeben gefunden:

Delphi-Quellcode:

  PalXY.x :=PalXY.x; //+10;
  PalXY.y :=PalXY.y; //+10;

:gruebel:

[mquadrat]

Zitat:

Zitat von bcvs (Beitrag 1319508)

soeben gefunden:

Delphi-Quellcode:

  PalXY.x :=PalXY.x; //+10;
  PalXY.y :=PalXY.y; //+10;

:gruebel:

Na der ist doch einfach. Da wurde mal 10 addiert. Dann wurde das weggelassen und man hat festgestellt, dass es immer noch geht :-)

[BUG]

Zitat:

Zitat von mquadrat (Beitrag 1319516)

Na der ist doch einfach. Da wurde mal 10 addiert.

Jupp, so etwas mache ich beim Debuggen auch häufiger mal. Allerdings sollte man es danach wieder löschen :wink: