Eure besten Quellcode Kommentare...

[himitsu]

vielleicht besser, wenn man sowas nicht kommentiert

Delphi-Quellcode:

Randomize;
SetLength(S, 32);
For i := 1 to 32 do S[i] := String('abcdefghijklmnopqrstuvwxyz0123456789')[Random(36) + 1];

sieht aber nett aus

[FAlter]

Hi,

bin gestern über sowas gestolpert:

Code:

* STOP. " <-- Nach erfolgreichem Durchlauf einfügen.
STOP. " <-- Nach erfolgreichem Durchlauf eingefügt.

War nicht genau so aber so ähnlich...

Gruß
Felix

[Angel4585]

Grad in nem Quelltext von meinem Ausbilder entdeckt:

Delphi-Quellcode:

{
oh je das ist echt ein schrott mit dem zeuch !!!
}

Ich weis was er meint

[himitsu]

Delphi-Quellcode:

IURLModule = interface
  ['{9D215B02-6073-45DC-B007-1A2DBCE2D693}']
    procedure Close;
    function GetURL: string;                    // tested
    procedure SetURL(const AURL: string);       // tested
    procedure SourceActivated;
    function GetWindowClosingEvent: TWindowClosingEvent; // WARNING!!! DO NOT CALL!!!

Quelle: http://www.delphipraxis.net/internal...084650#1084650

Das fand ich jetzt witzig ... woraum diese Funktion dann im öffentlichen Interface nicht einfach weglassen?

[sirius]

Zitat von himitsu:

Quelle: http://www.delphipraxis.net/internal...084650#1084650
Das fand ich jetzt witzig ... woraum diese Funktion dann im öffentlichen Interface nicht einfach weglassen?

In einem Interface ist das enorm wichtig, dass jede Methode an ihrer Stelle steht, denn nur so kann der Einsprungpunkt (bei Erly Binding) gefunden werden. Die Reihenfolge muss exakt übereinstimmen. Und wenn dann von dem Interface noch weitere abgeleitet würden, dann würde alles durcheinander kommen.

[Wolfgang Mix]

//Wolfgang Mix - Delphi-PRAXiS

[himitsu]

@sirius: Ohhh, ich dachte das wird über den Namen entschieden und nicht über einen Index.

@Wolfgang: Ich hoffe mal, das steht nicht irgendwo im Code eines Trojaners.

[Wolfgang Mix]

[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