Prozedur per Adresse aufrufen (z.B.von @myPrivateCallBack())

[PureLust]

Hi Leuts,

ich scheine momentan irgendwie auf'm Schlauch zu steh'n (auh mann ... das Alter, das Alter).
Ich suche den Befehl um eine PB-Prozedur per Adresse aufzurufen.

Jemand 'nen Tipp?

[RSBasic]

Code: Alles auswählen

Procedure abc()
  Debug "Hallo"
EndProcedure

Debug @abc();Adresse

CallFunctionFast(@abc());Aufruf

[Kevin]

Hi,

Es gibt noch eine zweite Möglichkeit:

Code: Alles auswählen

Procedure abc(parameter)
  Debug "Hallo "+Hex(parameter)
EndProcedure

Prototype abc_ka(parameter)

*example2.abc_ka = @abc()

*example2(2)

Grüße
kevin

[PureLust]

*Autsch* ... tausend mal benutzt, aber nach so langer PB-Abstinenz komplett vergessen.

Vielen Dank Ray & Kevin

Wünsche Euch (und natürlich auch den anderen PBlern) 'nen guten Rutsch und ein tolles 2014.

[ts-soft]

Die Möglichkeit mit Prototype ist die einzige, die man nutzen sollte.
Solange es keine Parameter in dem Beispiel von RSBasic gibt, ist es
aber nicht ganz so schlimm

Allerdings finde ich am zweitem Beispiel die pointerdeklaration unnötig/falsch.

Code: Alles auswählen

EnableExplicit

Procedure abc(parameter)
  Debug "Hallo "+Hex(parameter)
EndProcedure

Prototype abc_ka(parameter)

Define example2.abc_ka = @abc()

example2(2) 

[Tommy]

Geile Sache. Das habe ich auch noch nicht gewusst das man mit so etwas machen kann.
ts-soft: Wenn Parameter übergeben werden müssen warum ist Prototype die einzige die man nutzen sollte?
Basierend auf rs-basics Code könnte man auch so machen oder?

Code: Alles auswählen

Procedure abc(iVar, sVar.s)
Debug iVar
Debug sVar
EndProcedure
CallFunctionFast(@abc(), 25, @"String und so")

Sieht einfacher und kürzer als mit Prototype aus ohne extra Define usw. Kannst du mir erklären was daran falsch oder ungeeignet ist? Ich will es nur verstehen.

[ts-soft]

@Tommy

1. Ohne Prototype, kann nur Integer als Ergebnis zurückgegeben werden, also keine Quad, Double usw. (bzw.
Strings werden leider nicht als solche zurückgegeben, sondern als Pointer)
2. Der Type der Parameter kann nicht festgelegt werden, es sind immer Integer. Quad, String usw. funktionieren nicht!
3. Optionale Parameter, Pseudo-Types usw., sind nicht möglich.
4. Der Compiler kann die anzahl der angegebenen Parameter nicht überprüfen und übergibts diese ohne Überprüfung.

>> Sieht einfacher und kürzer als mit Prototype aus ohne extra Define usw
Willst Du sauber Programmieren oder schöne "Sch*isse" produzieren?
CallFunction... sind überbleibsel von PB3, nach Möglichkeit einfach ignorieren und nicht mehr nutzen.
Goto-Freaks und andere natürlich ausgenommen

Gruß
Thomas