prozedur mit parametern über namen (string) aufrufen

[Blizzard]

Hi,
ich versuch gerade eine prozedure über ihren namen als string aufzurufen. ich hab schonmal rausgefunden, dass das ganze über form.MethodAddress('name') funktioniert. er ruft mir auch die funktion auf allerdings werden die parameter nicht korrekt übergeben. soll heißen auf der einen seite geht der integerwert 1 rein auf der ander kommt was ganz anderes z.b. 68 an.
mein code bisher

Code:

var
getproc:procedure (count:byte);
begin
  @getproc:=mainform.MethodAddress('testproc');
  getproc(1);
end;

wie gesagt bis auf das nicht die 1 ankommt die reingeht funktioniert alles.
Jemand ahnung woran das liegt? Leider komme ich dabei solangsam an die grenzen meiner programmierkentnisse, pointer und so sind einfach ned mein ding.

MfG
Blizzard

[Luckie]

Kennst du zur Entwurfszeit den Namen der Prozedur nicht oder wie?

[jbg]

Die Klassenmethode MethodAddress funktioniert nur mit Methoden, die unter published deklariert sind. Für FieldAddress gilt entsprechendes.

[Blizzard]

so in der art,
die prozeduer in der ich das brauche bekommt je nachdem verschiedene forms als parameter übergeben und muss in der übergebenen form ne prozedur aufrufen. diese prozedur heißt in allen möglichen übergebenen forms gleich. da ich die übergabe aber vom typ tform habe kann ich da die prozedure nicht einfach direkt ansprechen

@jbg jupp weis ich die prozeduer ist auch published, sie wir auch aufgerufen wenn ich im debugger mit F7 weiterspringe aber der wert der als parameter ankommt ist ein andere als der der eingegeben wird

[RomanK]

Hoi, ich hatte auch mal ne Problem mit dem dynamischen Aufrufen von Proceduren und ich hab es bissle anderst gelöst, kannst dir es ja mal anschauen:
http://www.delphipraxis.net/viewtopic.php?t=2927

[jbg]

Zitat:

Zitat von Blizzard

@jbg jupp weis ich die prozeduer ist auch published, sie wir auch aufgerufen wenn ich im debugger mit F7 weiterspringe aber der wert der als parameter ankommt ist ein andere als der der eingegeben wird

Das liegt daran, dass du eine Methode aufrufst und keine Prozedur/Funktion. Bei einer Methode gibt es noch einen weiteren, versteckten, Parameter.

Delphi-Quellcode:

procedure GetMethod(var Method; Instance: TObject; const MethodName: string);
begin
  TMethod(Method).Code := Instance.MethodAddress(MethodName);
  TMethod(Method).Data := Instance;
end;

function TForm1.TestProc(Count: Byte): Integer;
begin
  Self.Color := clRed; // Zugriff auf Self testen
  Result := Count; // Rückgabewert testen
end;

procedure TForm1.Button4Click(Sender: TObject);
var GetProc: function(Count: Byte): Integer of object;
begin
  GetMethod(GetProc, Self, 'TestProc'); // GetProc auf 'TestProc' setzen

  ShowMessage(IntToStr(GetProc(100)));
end;

Und von welchem Rückgabewert sprichst du? Du rufst doch eine Prozedur auf und die hat per Definition keinen Rückgabewert.

[Blizzard]

sorry hatte mich vielleicht etwas unklar ausgedrückt:
das problem ist, das ich der procedur den wert 1 übergebe die procedur aber den wert 64 oder so erhält also wenn das ganze so aussieht

...
tuwas(1);
...
procedure tuwas(count:byte);
begin
showmessage(inttostr(byte);
end;

dann bekomm ich bei showmessage 64 oder so ausgegeben obwohl die prozedure mit 1 aufgerufen wurde. ich vermute mal das bei meiner methode auf einen falschen adress bereich verwiesen wurde oder so.
werd deins gliech mal testen

[Chewie]

Zitat:

Zitat von Blizzard

showmessage(inttostr(byte);

Das hier nicht das gewollte passiert, ist klar. Das muss natürlich Count heißen. Oder hast du das in deinem Programmm richtig und nur hier falsch abgeschrieben?

[Blizzard]

upps im prog isses aber richtig hab's zwischenzetlich mit jbg's methode auf die reihe bekommen und es läuft :dancer:
die methode von fuckracism ging bei mir leider ned da die methode zu nem form gehört und sich daher ned exportieren lassen wollte