Eure besten Quellcode Kommentare...

[sirius]

@himi: kleines Beispiel gefällig

Delphi-Quellcode:

type
  IIntf=interface
  ['{7BB6E49F-7606-47BB-B894-774D91F5FE17}']
    procedure sayHallo;
    procedure sayWorld;
  end;

  TIntfClass=class(TInterfacedObject,IIntf)
    procedure sayHallo;
    procedure sayWorld;
  end;

  IIntf2=interface //gleiche IID; gehört ja normalerweise in ein anderes Modul
  ['{7BB6E49F-7606-47BB-B894-774D91F5FE17}']
    procedure sayWorld;
    procedure sayHallo;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TIntfClass }

procedure TIntfClass.sayHallo;
begin
  showmessage('Hallo');
end;

procedure TIntfClass.sayWorld;
begin
  showmessage('World');
end;

procedure TForm1.Button1Click(Sender: TObject);
var Intf2:IIntf2;
begin
  Intf2:=TIntfClass.create as IIntf2;
  Intf2.sayHallo;
  Intf2.sayWorld;
end;

[himitsu]

OK, dann ist wenigstens der Zugriff schneller ... na dann hatte ich ja noch Glück, daß ich dadurch noch keine Probleme bekommen hab.

Delphi-Quellcode:

{ fu** Intel > BT [EAX + DH * 32], DL }
MOV     ECX, EDX
SHR     ECX, 3
AND     ECX, -$1F
//AND   EDX, $FF
BT      [EAX + ECX], EDX

[Neutral General]

@himitsu: Verstehe deinen letzten Post nicht..

Falls sich jmd. darüber aufgeregt hat, dass

BT [EAX + DH * 32], DL

nicht geht, dann darf er aber die Schuld nicht Microsoft geben, sondern den Erfindern und Herstellern der x86-CPUs

[himitsu]

Ups, ja, ich meinte den einen Prozessorhersteller ... das M$ war da wohl irgendwie falschgedacht.


Aber ich war einfach nur sauer/beleidigt, daß es nicht geht ... da setzte dann wohl das Hirn etwas aus


PS: Wenn das ginge, dann könnte man Delphi nativ 64k-große SETs beibringen.

[Daniela.S]

(*** Was hab ich mir damals dabei gedacht? Egal, es funktioniert. Besser nicht angreifen!!! ***)

[Muellermilchtrinker]

hatten wir schon aber egal:

Delphi-Quellcode:

try
  {...}
except
  //schluck den Fehler ^^
end;

[Die Muhkuh]

Gerade in nem Wordpress-Theme gefunden:

Code:

<?php endif; // if you delete this the sky will fall on your head ?>

[Teekeks]

Gerade im Lazarus Quellcode gefunden:

Delphi-Quellcode:

    {$ifndef windows} // unix
{...}
{$else}
{...}
{$endif}

Ich würde mal sagen... sehr direkt

[blackfin]

Aus dem GLScene Source:

Delphi-Quellcode:

// a function returning some integer based on the root^exponant concept,
// result is crap and is only for "random" usage... eg perlin.
function ExponateCrap(root, exponant : Integer) : Integer;

Result := 1.0 - X / 1073741824.0 // make it a [-1;1] affair!

Delphi-Quellcode:

{: Damping applied to rotation speed (yuck!).<br>
Well, this one is not "exact", like TranslationDamping, and neither
it is "physical" since I'm reusing the mass and... and... well don't
show this to your science teacher 8).<br>
Anyway that's easier to use than the realworld formulas, calculated
faster, and properly used can give a good illusion of reality. }
property RotationDamping : TGLDamping read FRotationDamping write SetRotationDamping;

[H4ndy]

Vor geraumer Zeit in einem historisch gewachsenem Projekt beim Ausmisten gefunden. Ich liebe Debug-Code

Delphi-Quellcode:

{$IFDEF scheisse}
ShowMessage('scheisse!');
{$ENDIF}