Eure besten Quellcode Kommentare...

[TForm1]

Ist der schon bei Euch aufgetaucht?

HTML-Code:

             _.-~-.
           7''  Q..\
        _7         (_
      _7  _/    _q.  /
    _7 . ___  /VVvv-'_                                            .
   7/ / /~- \_\\      '-._     .-'                      /       //
  ./ ( /-~-/||'=.__  '::. '-~'' {             ___   /  //     ./{
 V   V-~-~| ||   __''_   ':::.   ''~-~.___.-'' _/  // / {_   /  {  /
  VV/-~-~-|/ \ .'__'. '.    '::                     _ _ _        ''.
  / /~~~~||VVV/ /  \ )  \        _ __ ___   ___ ___(_) | | __ _   .::'
 / (~-~-~\\.-' /    \'   \::::. | '_ ` _ \ / _ \_  / | | |/ _` | :::'
/..\    /..\__/      '     '::: | | | | | | (_) / /| | | | (_| | ::'
vVVv    vVVv                 ': |_| |_| |_|\___/___|_|_|_|\__,_| ''

Hi there, nice to meet you!

Habe ich gerade im HTML-Text auf der Seite von Firefox gesehen.

[TiGü]

Delphi-Quellcode:

//------------------------------------------------------------------------------
{*Erzeugt analog zur Echtzeitversion für einen Tastendruck auf der
Tastatur in der DEMO-Version eine Massage an das aufrufende
Programm.
@param BoxNr  Boxennummer
@param eSensor Ereignis}
procedure DemoSensor(BoxNr,eSensor:Integer);
...

Gemeint war eine Windows-Message!

[Luckie]

Ich halte mir dann das Tablet mal auf meinen verspannten Rücken.

[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!

[dummzeuch]

Zitat von Bernhard Geyer:

Zitat von Sherlock:

In XE8 ist das ja bestimmt behoben worden.

Nö. Schaut genauso aus

In 10.2.2 übrigens immernoch.

[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;