Variablen-Übergabe an Prozedur

[Thorium]

Also es funktioniert schon. Allerdings frag ich mich, wo der Unterschied zwischen .l und .Long ist.

Der Unterschied ist das .l ein DoubleWord ist und .Long eine Struktur, welche ein DoubleWord enthält.

[Kaeru Gaman]

> Und mit *Variable\l ... wenn man drauf zugreifen will (wenn Longint)

nein.

wenn es ein pointer ist, der als pointer auf eine Long strukturiert ist.
dafür die Structure .LONG

...lies doch mal den beitrag von srod, den ich dir verlinkt hab...

[Little John]

So wie es hier für numerische Variablen gezeigt wurde, funktioniert es nicht für Stringvariablen:

Code: Alles auswählen

;-- PB 4.02
EnableExplicit

Procedure Aendere_String (*var.string)
   *var\s + " Welt"   ;-> Invalid memory access.
EndProcedure

Define text.s

text = "Hallo"
Aendere_String(@text)
Debug text

Wie muss obige Prozedur aussehen, damit am Ende "Hallo Welt" angezeigt wird?

Gruß, Little John

[Kaeru Gaman]

weiß ich nich genau....

aber ein string ist grundsätzlich schon ein pointer (nämlich in den string-pool)
so wie dus gemacht hast, übergibst du also hier nicht den pointer auf den string,
sondern den pointer auf den pointer.
und an der pointer darfst du natürlich nix hintendran schreiben, deswegen IMA.

[Little John]

Danke, Kaeru! Nach Deinem Hinweis habe ich ein bißchen 'rumgespielt, und bin dabei auf folgendes gekommen:

Code: Alles auswählen

;-- PB 4.02
EnableExplicit

Procedure Aendere_String (addr.l)
   Protected *StrPtr.string
   
   *StrPtr = @addr
   *StrPtr\s + " Welt"
EndProcedure

Define text.s

text = "Hallo"
Aendere_String(@text)
Debug text

Das funktioniert soweit, aber frag mich bitte nicht warum.
Kann jemand bestätigen, dass das so in Ordnung ist, und nicht zu Speicherlecks oder was-weiß-ich führen kann?
Geht es besser/einfacher?

Gruß, Little John

[ChristianK]

Code: Alles auswählen

Procedure Aendere_String (*addr)
     PokeS(*addr,PeekS(*addr)+" Welt")
EndProcedure

Define text.s

text = "Hallo"
Aendere_String(@text)
Debug text 

[Little John]

Hallo!
Wie kann man denn sicher sein, dass an der Adresse, wo man den neuen String hinPOKEt, auch genügend Speicherplatz zur Verfügung steht?

Gruß, Little John

[ChristianK]

Dass genug Platz da ist musst du schon dafür sorgen.

Beweis:

Code: Alles auswählen

Procedure Aendere_String (*addr)
     PokeS(*addr,PeekS(*addr)+"############################")
EndProcedure

text$="oooooooooooooooo"
b$="=========================================="

Debug "b$ vorher : "+b$
Aendere_String(@text$)
Debug "b$ nachher: "+b$

[Little John]

Dann fehlt da wohl noch was bei Deinem Code?

Gruß, Little John

[Little John]

Ich glaube jetzt hab ich's (entsprechend den Informationen in diesem Thread im englischen Forum). Der Trick ist offenbar, dass man für die Übergabe von Strings by Reference keinen Zeiger auf eine Struktur als Parameter verwendet.

Code: Alles auswählen

;-- PB 4.02
EnableExplicit

Procedure Aendere_String (*str.s)
   ; mit *str.s wird die Adresse des String-Deskriptors an die Prozedur übergeben

   *str + " Welt"
EndProcedure

Define text.s

text = "Hallo"
Aendere_String(@text)
Debug text

Gruß, Little John