Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

UDT Pointer zu Funktion

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Make-Grafik



Anmeldungsdatum: 08.10.2012
Beiträge: 29

BeitragVerfasst am: 05.05.2015, 07:48    Titel: UDT Pointer zu Funktion Antworten mit Zitat

Hallo, ich bin gerade unterwegs, daher kann ich keinen sourcecode zur verfügung stellen. Jedoch brennt mir eine Frage schon seit längeren:

Ich habe eine UDT mit einer publiken Memberfunktion. Kann ich von dieser Funktion irgendwie den Pointer ermitteln? Wie ich an den Pointer bzw. die Adresse einer statischen Memberfunktion komme weiß ich bereits. Wie verwaltet FB eigentlich Objekte? Ich kann mir gut vorstellen dass sämtliche Variablen und Prozeduren erst einmal im RAM als Struktur gespeichert werden. Dabei irgendwo ein Pointer zur Memberfunktion und die eigentliche Struktur (die die Variablen enthält) als Parameter übergeben werden. Weiß dazu jemand was genaueres? Würde mich freuen, lg Make lächeln
_________________
Hmn :/ Mal schaun was es bringt...
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
RockTheSchock



Anmeldungsdatum: 04.04.2007
Beiträge: 138

BeitragVerfasst am: 06.05.2015, 10:51    Titel: Antworten mit Zitat

Das geht noch nicht, aber du kannst das ganze mit einer statischen Methode abbilden.
Code:
Type MyUDT
Public:
   Declare Static Sub SetValue(obj As MyUDT, v As Integer)
   Declare Sub SetValue(v As Integer) 

   value As Integer   
End Type
Type SubInteger As Sub(obj As MyUDT,v As Integer)


Sub MyUDT.setValue(v As Integer)
   value=v
End Sub

Sub MyUDT.setValue(obj As MyUDT, v As Integer)   
   Obj.setValue(v)
End Sub



Dim udt As MyUDT

Dim fptr As SubInteger
fptr = ProcPtr(MyUDT.setValue)
fptr(udt,10)

Print udt.value
Sleep
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz