XProfan

Español

Georg
Hovenbitzer

¡Hola zusammen,

Yo sitze veces otra vez a una Problema y verstehe el Welt no mehr.

Zu el Yo como zusammen programmiert habe, Yo unos pocos Fragen pero no Respuesta:
- wieso son @SizeOf(Test#) 1 y no 11 de ?
- como komme I el echte Größe de Test# si yo el Rückgabewert no habe y @Sizeof no funktioniert ?
- si yo no Dim Dummy#,11 angebe oder el ReDim größer mache como el Inhalt, kommt en Edición des Cuerdas sólo Müll fuera, wieso ?

Sinn oder mejor Zweck el ganzen Sache debería ser, dass Soy un Zona a una Procedimiento übergebe y esta gefüllt zurück bekomme sin la endgültige Größe a Beginn a wissen.

Tal vez kann me otra vez alguien weiterhelfen, así Yo el Welt otra vez verstehe

Kompilieren Marca Separación

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 Zitat

Absatzweise Cita Zeilenweise Cita

Stephan
Sonneborn

¡Hola Georg,

Usted dimensioniert Test# en deinem Ejemplo con el Longitud 1.
Kompilieren Marca Separación

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

Dann rufst Usted el ReDim-Función en. Als Übergabe-Parámetro verwendest Usted Test#.
Kompilieren Marca Separación

Size& = ReDim(Test#)

Dabei weist Usted ProcBereich# primero auch Test# a.
Kompilieren Marca Separación

Parameters ProcBereich#

Danach setzt Usted aber ProcBereich# en el Longitud de Dummy#:
Kompilieren Marca Separación

Dim ProcBereich#,@SizeOf(Dummy#)

Und Dummy ha el Longitud 11 Signo, porque:
Kompilieren Marca Separación

Dim Dummy#,11

Deswegen se de Deiner Función siempre 11 zurück gegeben.
Kompilieren Marca Separación

Return @SizeOf(ProcBereich#)

El SizeOf Función en Deiner Imprimir-Anweisung beszieht se el ursprüngliche Test#. Und el ha siempre todavía el Longitud 1.
Kompilieren Marca Separación

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 Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Hovenbitzer

¡Hola Stephan,

deine Ausführungen son correcto, pero yo habe como Einwende

Ab el 11él Versión de Profano puede ser a Prozeduren Bereiche transferencia, Yo hier versuche y qué en efecto klappt, en Test# befindet se al Ende el String "0123456789".

El Cuestión es nun, wieso kann I, con @SizeOf no el veränderte Größe ermitteln ?
También interessiert mich wieso el Inhalt sólo correcto es si la Größe des Bereiches el des Inhaltes igual es.

Viele Grüße
Georg

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

18.11.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita