Routine mit Namen aufrufen

[Sigi55]

Zitat:

Zitat von himitsu (Beitrag 1291544)

Zitat:

Zitat von Sigi55 (Beitrag 1291543)

Fehler: Application? Undeclared Indentifier ???

[F1] kennst du aber?

Sorry, ja klaro, bin ein wenig vernagelt ..

Also, ich hab jetzt:

Delphi-Quellcode:

unit jRegister;

interface

uses classes, forms;

Jetzt sind die Fehler wech ... aber beim Starten bekomm ich:

Delphi-Quellcode:

Destructor TJobRegister.Destroy;
var i : Integer;
    p : pMethod;
begin
 for i := 0 to FRegister.Count-1 do
  begin
    p := pMethod(FRegister.Objects[i]); //?? invalid typecast ??
    FreeMem(p);
  end;
 inherited Destroy;
end;

Für mich ist das ne echte Blackbox ...

cu

Sigi

P.S.: Schreibt ihr solche Sachen wie das Beispiel von HaJö
einfach so "ins Blaue" runter ? Wenn ja, erstaunen :-)
Oder wird das in der IDE auch mal getestet ??

[Sigi55]

Wahnsinn !!:bouncing4:

jetzt hab ich "pMethod = ^TMethod;" den ^ noch davor gesetzt
und nun geht's.

Delphi-Quellcode:

type pMethod = ^TMethod;
    TJobRegister = class(TComponent)

Hatte wohl die Reihenfolge verdreht, na ja Blackbox :-)
ich werd jetzt erstmal testen, testen.

Danke euch allen !!

Gruß

Sigi

[hanvas]

Zitat:

Jetzt, ohne "^" ist es OK, nur eines noch ..

Delphi-Quellcode:

function jobRegister : TJobRegister;
begin
 if not Assigned(reg) then
    reg := TJobRegister.Create(Application);
 result := reg;             // ^^^^^^^^^^^
end;

Fehler: Application? Undeclared Indentifier ???

Sigi

Es gibt aber etwas was ich nicht ganz verstehe. In meinem ursprünglichen Posting ist die Verwendung von PMethod nach der Verwendung von Application geschehen. Dieser Fehler hätte Dir deshalb doch schon vor dem anderen auffallen müssen. Kann es sein das Du mich auf die Schippe nimmst?

cu Ha-Jö

[Sigi55]

Hmm,

zu früh gefreut :-(, keine Fehler beim compilieren,
Button da, aber nix, aber auch gar nix passiert ???

Wenn ich das mit meinem Viertelwissen so peile, sollte
da eigentlich ne Messagebox kommen, oder ??

Gruß

Sigi

[Sigi55]

[QUOTE=hanvas;1291549]

Zitat:

... es sein das Du mich auf die Schippe nimmst?

cu Ha-Jö

Nee, bestimmt nicht, da war noch ein anderer Fehler
zu der Zeit angezeigt ..

Delphi-Quellcode:

 p.Data := instance;
 p.Code := addr;

Hatte ich aber nicht erwähnt, ich trau mich ja kaum nur eine Punkt
zu verändern ...

cu

Sigi