-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sigi55,
25. Feb 2015
Nee, bestimmt nicht, da war noch ein anderer Fehler
zu der Zeit angezeigt ..
p.Data := instance;
p.Code := addr;
Hatte ich aber nicht erwähnt, ich trau mich ja kaum nur eine Punkt
zu verändern ...
cu
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sigi55,
25. Feb 2015
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ß
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sigi55,
25. Feb 2015
Wahnsinn !!:bouncing4:
jetzt hab ich "pMethod = ^TMethod;" den ^ noch davor gesetzt
und nun geht's.
type pMethod = ^TMethod;
TJobRegister = class(TComponent)
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sigi55,
25. Feb 2015
Sorry, ja klaro, bin ein wenig vernagelt ..
Also, ich hab jetzt:
unit jRegister;
interface
uses classes, forms;
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sigi55,
25. Feb 2015
Hi,
unit jRegister;
interface
uses classes;
type pMethod = TMethod;
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sigi55,
25. Feb 2015
Moin,
mir sagt das Alles garnichts :-) und wird es auch wohl nie ...
procedure RegisterCall (const registeredName : String; m : pMethod); virtual;
^^^^^^^
// Mag er nicht, Undeclared Indentifier ???
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sigi55,
24. Feb 2015
Hallo Ha-Jö !!
ist ja der Wahnsinn, was für ne Arbeit :-)
Sonst sieht alles gut aus, aber ich hab keine Ahnung was ich mit "pMethod"
machen soll ...
Danke für die Mühe, jetzt soll's aber auch laufen !
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sigi55,
22. Feb 2015
Hallo,
Mann-O-Mann, da hab ich ja was losgetreten ...
Ich würd ja gern den Ansatz von Ha-Jö testen, aber ich kann das
nicht ausprogrammieren ..., das ist für mich zu weit im Eingemachten.
Mit dem Ansatz von BadenPower komm ich klar.
Vielleicht hat ja jemand Lust, Zeit, Ruhe und Muße die bessere Lösung
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sigi55,
21. Feb 2015
Hi,
seh ich auch so, hab ich getest und löppelt super :-)
Für mich als "DummProgger" gerade richtig :-)
Dann werd ich mal an's umbauen gehn ...
Danke nochmal.
Sigi
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sigi55,
21. Feb 2015
Hi,
und wie das geht, ist das jetzt der Ansatz den himitsu meinte ??
Gruß
Sigi
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sigi55,
21. Feb 2015
Hallo BadenPower,
Mensch, geil, klappt wie blöd :-)
Vielen Dank für Deine Mühe, euch anderen auch.
Hier wird man echt geholfen.
Meistens kann ich ja meine Wissenslücken in Bezug auf Delphi über
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sigi55,
21. Feb 2015
Hallo BadenPower,
Da liegt ja das Problem, die Procedure die ich aufrufen möchte liegt
in einer "formlosen" unit.
Vielen Dank und Gruß
Sigi
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sigi55,
21. Feb 2015
Hallo Stali,
Da löppelt einfach nur ne Schleife ...
while not eof do
begin
ExecuteRoutine(Form1,dmLOG.tbl_JobsLinkedPreUpdate.FieldByName('Command').AsString);
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sigi55,
21. Feb 2015
Moin Ha-Jö
Richtig :-)
Interfaces, Wrapper, ?, da hört es bei mir auf, das kann ich nicht :-(
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sigi55,
21. Feb 2015
Moin erstmal,
also, wozu braucht er das ?
Ich hab mir so eine Art Taskplaner, unix-cron, etc.. geschrieben.
Die jobs lese ich aus einer DB-Tabelle und arbeite sie zeitgesteuert ab.
Der "JobName" ist die Bezeichnung der aufzurufen Procedure den ich per Variable
übergebe.
Das klappt auch alles wunderbar, nur liegen nicht alle Proceduren auf der
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sigi55,
20. Feb 2015
Hallo,
ich nutze diese kleine Routine um Prozeduren mit Namen zu starten,
das klappt auch alles ganz wunderbar solange sich diese Prozedure
in der gleichen Form befindet ...
type
TForm1 = class(TForm)
Button1: TButton;