Non-Visual-Komponente > Ereignisse im OI verknüpfen

[Bummi]

was sollte Dir denn der OI zur Auswahl anbieten?
Ich bezweifle dass sowas machbar ist.

[himitsu]

@mleyen: Sowas hab ich schon versucht, aber ich versuch es noch weiter.

@Bummi: Also, da "reference to" alles aufnehmen kann, und "procedure of object" somit enthalten ist, sollten mindestens die Methoden der Form auswählbar sein.

[Bummi]

meine Zweifel bezogen sich nicht auf:
THIDEOnRecive = Procedure(Sender: THIDDeviceEx; Const Data; Len: Integer) of Object;

[himitsu]

Zitat von Bummi:

meine Zweifel bezogen sich nicht auf

Ich weiß.
"reference to" kann aber auch Objekt-Methoden aufnehmen,
sowie einfache Prozeduren, Klassen-Methoden, anonyme Methoden usw.

[himitsu]

Hab hier mal beide Varianten zusammengestellt.

Wie gesagt, bei "procedure of object" zeigt der OI die Property nicht an
und bei "reference to procedure" kann man via OI nichts zuweisen.

Die Komponente selber hat keine Funktion.
(Wurde wegen eines Fehlers im HIDControler deaktivert, nicht daß die IDE nochmal verreckt)

Aktuell wäre der Code wohl unter DelphiXE, Delphi2010 und vermutlich auch noch Delphi2009 kompilierbar.

Wobei die String-Operationen inzwischen so umgestellt wurden, daß sie auch für Nicht-Unicode-Delphis geeignet wären.
Wenn alles läuft, werd' ich mal sehn, wie ich das mit den anonymen Methoden und den Generics umgehe.
Nja, und der HID-Controler hat halt noch ein kleines Problem ... bin noch nicht mit der Umstellung auf die RAWInputs fertig (hab wohl irgendwo was vergessen).
Und das Problem mit den "reference to" ist auch noch nicht gelöst.

[shmia]

Ich würde bei "procedure of Object", also intern Datentyp TMethod, bleiben.
Diese Art von Events sind deutlich schneller und schlanker als das neue "reference to procedure" (auch bekannt als Closures).

Closures wurden IHMO nie als Ersatz für Events entwickelt.
Ausserdem können mit Closures unerwarte Dinge passieren, weil der Compiler die lokalen Variablen zum Zeitpunkt der Erzeugung des Closure "reinwurstelt".
Beispiel:

Delphi-Quellcode:

procedure TMyClass.DoStuff; 
var 
  j: integer; 
  ShowCounter: TProc; // Method without parameter. 
begin 
  ShowCounter := 
    procedure 
    begin 
      // j is known here because it is wrapped in a closure 
      // and made available to us! 
      writeln(IntToStr(j)); 
    end;

  for j := 1 to 10 do 
    ShowCounter; 
end;

[himitsu]

Dafür wäre es aber praktisch, wenn der OI diese "of Object" dann auch anzeigt, was er leider nicht macht.

Obwohl er es doch eigentlich zun sollte.

[himitsu]

Zitat von shmia:

Diese Art von Events sind deutlich schneller und schlanker als das neue "reference to procedure" (auch bekannt als Closures).

Nja, soooo schlimm ist es nun auch nich.

Delphi-Quellcode:

program Project1;

uses
  Windows,
  SysUtils,
  Dialogs;

type
  TReference = reference to procedure;
  TMethod = procedure of object;
  TProcedure = procedure;

  TTest = class
    procedure Test;
  end;

procedure TTest.Test;
begin
end;

procedure Test;
begin
end;

var
  ref: TReference;
  method: TMethod;
  proc: TProcedure;
  t: TTest;
  c, c2, c3: Cardinal;
  i: Integer;

begin
  t := TTest.Create;

  c := GetTickCount;
  for i := 0 to 10000000 do
  begin
    ref := t.Test;
    ref;
    ref := nil;
  end;
  c := GetTickCount - c;

  c2 := GetTickCount;
  for i := 0 to 10000000 do
  begin
    method := t.Test;
    method;
    method := nil;
  end;
  c2 := GetTickCount - c2;

  c3 := GetTickCount;
  for i := 0 to 10000000 do
  begin
    proc := Test;
    proc;
    proc := nil;
  end;
  c3 := GetTickCount - c3;

  ShowMessage(Format('%d %d %d', [c, c2, c3]));
end.

Zitat:

~500 ~90 ~80

500 / 10000000 = 0,00005 ms pro Zuweisung+Aufruf
90 / 10000000 = 0,000009 ms pro Zuweisung+Aufruf

Und wenn nun noch irgendwas innerhalb der Prozedur und zwischen den Aufrufen passiert, dann verliert sich diese zusätzliche Zeit.
Schließlich wird Delphi auch nicht grade schneller, da fällt das "Bissl" nun och nicht mehr auf