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.

Sherlock

[Bernhard Geyer]

Zitat von Sherlock:

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 von TiGü:

{$IFNDEF ANDROID}
{$IFDEF PIC}

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

[implementation]

Zitat von blawen:

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;

[mquadrat]

Zitat von bcvs:

soeben gefunden:

Delphi-Quellcode:

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

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 von mquadrat:

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