XProfan

Français

Georg
Hovenbitzer

allô zusammen,

je sitze la fois wieder à einem Problem et verstehe qui monde pas plus.

trop dem quoi je là zusammen programmiert habe, habe je un paire Fragen mais aucun répondre:
- wieso gibt @SizeOf(Test#) 1 et pas 11 aus ?
- comment viens je sur qui echte Taille de Test# si Je l' Rückgabewert pas habe et @Sizeof pas funktioniert ?
- si je pas Faible Dummy#,11 angebe ou bien den ReDim größer fais comme qui le contenu, venez chez qui Ausgabe des Cordes seulement Müll raus, wieso ?

Sinn ou bien besser Zweck qui ganzen l'affaire sollte son, dass je une Bereich à une Procédure übergebe et cette pleine zurück bekomme sans qui final Taille trop Beginn trop savons.

peut-être peux mir wieder quelqu'un weiterhelfen, avec cela je qui monde wieder verstehe

Kompilieren Marque Séparation

Proc ReDim

    Parameters ProcBereich#
    Declare Dummy#
    Dim Dummy#,20
    String Dummy#,0 = "0123456789"
    Dim Dummy#,11
    Dim ProcBereich#,@SizeOf(Dummy#)
    ProcBereich# = Dummy#
    Dispose Dummy#
    Return @SizeOf(ProcBereich#)

EndProc

Declare Size&
Declare Test#
Dim Test#,1
Size& = ReDim(Test#)
Print "Größe von Test# =",@SizeOf(Test#)
Print "Return Wert =",Size&
Print "Inhalt Bereich =",@String$(Test#,0)

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

18.11.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Stephan
Sonneborn

allô Georg,

Du dimensioniert Test# dans deinem Beispiel avec qui Longueur 1.
Kompilieren Marque Séparation

Declare Size&
Declare Test#
Dim Test#,1re>

ensuite appelles Du qui ReDim-Funktion sur. comme Übergabe-paramètre verwendest Du Test#.
Kompilieren Marque Séparation

Size& = ReDim(Test#)

Dabei weist Du ProcBereich# zunächst aussi Test# trop.
Kompilieren Marque Séparation

Parameters ProcBereich#

après mets Du mais ProcBereich# sur qui Longueur de Dummy#:
Kompilieren Marque Séparation

Dim ProcBereich#,@SizeOf(Dummy#)

et Dummy hat qui Longueur 11 marque, weil:
Kompilieren Marque Séparation

Dim Dummy#,11

Deswegen wird de Deiner Funktion toujours 11 zurück gegeben.
Kompilieren Marque Séparation

Return @SizeOf(ProcBereich#)

qui SizeOf Funktion dans Deiner Imprimer-Anweisung beszieht sich sur cela ursprüngliche Test#. et cela hat toujours qui Longueur 1.
Kompilieren Marque Séparation

Print "Größe von Test# =",@SizeOf(Test#)

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

18.11.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Georg
Hovenbitzer

allô Stephan,

deine Ausführungen sommes richtig, mais j'ai là Einwende

Ab qui 11il Version de Profan peux on à Prozeduren Bereiche transfert, quoi je ici versuche et quoi oui aussi klappt, dans Test# est sich am Ende qui String "0123456789".

qui Frage ist eh bien, wieso peux je avec @SizeOf pas qui veränderte Taille ermitteln ?
Ebenso intéressé mich wieso qui le contenu seulement richtig ist si le Taille des Bereiches qui des Inhaltes juste ist.

Viele Grüße
Georg

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

18.11.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation