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:

Arrays ByRef übergeben!? [gelöst]

 
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
csde_rats



Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur

BeitragVerfasst am: 26.10.2007, 23:24    Titel: Arrays ByRef übergeben!? [gelöst] Antworten mit Zitat

Hallo!
Ich habe ein riesiges Problem:
Wenn ich versuche das hier zu kompilieren
Code:
DECLARE function MySub lib "lol" alias "MySub" (BYVAL a AS INTEGER, _
   BYREF b() AS INTEGER) as integer

DIM AS INTEGER a = 1, b(0 to 1) = {1,0}

PRINT "Vor Subaufruf:"
PRINT "a = "; a
PRINT "b = "; b(1)
PRINT

MySub a, b()

PRINT "Nach Subaufruf:"
PRINT "a = "; a
PRINT "b = "; b(1)

function MySub (BYVAL a AS INTEGER, _
   BYREF b() AS INTEGER)  as integer export
   a += 1
   b(1) += 1
   
   PRINT "In der Sub:"
   PRINT "a = "; a
   PRINT "b = "; b(1)
END function

Meldet der Compiler folgende Fehlermeldung:
Code:
M:/byref.bas(2) error 56: Illegal specification, at parameter 2 (b) of MySub() in 'BYREF b() AS INTEGER) as integer'
M:/byref.bas(18) error 56: Illegal specification, at parameter 2 (b) of MySub() in 'BYREF b() AS INTEGER)  as integer export'
M:/byref.bas(25) warning 14(0): Function result was not explicitly set

Hääääää?

(Ist zwar nicht der orig. Source, aber selbe Fehlermeldung, praktisch selbe Decl.)
_________________
If hilfreicher_Beitrag then klick(location.here)

Klick


Zuletzt bearbeitet von csde_rats am 26.10.2007, 23:53, insgesamt einmal bearbeitet
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
nemored



Anmeldungsdatum: 22.02.2007
Beiträge: 4699
Wohnort: ~/

BeitragVerfasst am: 26.10.2007, 23:41    Titel: Antworten mit Zitat

Ich finde jetzt den Fehler nicht (habe bisher noch keine Arrays übergeben), aber hilft es, stattdessen einen Pointer zu übergeben?
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
csde_rats



Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur

BeitragVerfasst am: 26.10.2007, 23:53    Titel: Antworten mit Zitat

thx, eben bin ich auf die Idee gekommen die beiden Arrays in einen UDT zu packe, und den UDT ByRef zu übergeben. Klappt lächeln
_________________
If hilfreicher_Beitrag then klick(location.here)

Klick
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Sebastian
Administrator


Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland

BeitragVerfasst am: 26.10.2007, 23:53    Titel: Antworten mit Zitat

Hallo,

ich habe neulich auch wegen der Arrayübergabe auf dem Schlauch gestanden. Die Lösung ist: Da Arrays in neueren Versionen von FB immer BYREF übergeben werden, ist eine Deklaration mit BYREF nicht nur unnötig, sondern gar nicht zulässig. Für die Arrayübergabe ist also nur z.B.
Code:
DECLARE SUB Toaster (Toasts() As String)

nötig.

Viele Grüße!
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Michael712
aka anfänger, programmierer


Anmeldungsdatum: 26.03.2005
Beiträge: 1593

BeitragVerfasst am: 27.10.2007, 00:15    Titel: Antworten mit Zitat

Zitat:
Da Arrays in neueren Versionen von FB immer BYREF übergeben werden, ist eine Deklaration mit BYREF nicht nur unnötig, sondern gar nicht zulässig.


Soweit ich weiß wurden arrays schon IMMER byref übergeben, nicht nur in den neueren Versionen. In den alten war das Schlüsselwort Byref bei Arrays erlaubt, Byval dagen nicht(wenn mich nicht alles täuscht).
_________________
Code:
#include "signatur.bi"
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
MisterD



Anmeldungsdatum: 10.09.2004
Beiträge: 3071
Wohnort: bei Darmstadt

BeitragVerfasst am: 27.10.2007, 01:05    Titel: Antworten mit Zitat

wer wäre auch so blöd und kopiert ein ganzes array bei jedem subaufruf Oo
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Sebastian
Administrator


Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland

BeitragVerfasst am: 27.10.2007, 12:20    Titel: Antworten mit Zitat

War es nicht früher so, dass man einen Pointer auf das erste Arrayelement übergeben musste?
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
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