Embedded Vars

Habe mal eine Frage zu den eingebetteten Variablen :

Ich bräuchte globale Variablen zum Einbetten innerhalb einer Proc.

Declare Handle edit1, btn1
Declare String text1, text2, text3
text1 = "Button1"
text2 = "Button2"
text3 = "Eingabe"
Window 600, 400
Create("Button", &HWnd, "\:text1;", 10, 10, 60, 25)
Create("Edit",   &HWnd, "\:text3;", 10, 50, 120, 25)
Init()
WaitEnd
Proc Init
create("Button", &HWnd, "\:text2;", 10, 100, 60, 25)
create("Edit",   &HWnd, "\:text3;", 10, 140, 80, 25)
Locate 6, 1
Print "Das ist \:text1;"
EndProc

Leider funktioniert das nicht in einer Proc,obwohl die Variablen ja global sind.

Kann das jemand bestätigen ?

Das kommt aber auch von dem Locate

Ein Locate 16, 1 (also auf einem freien Platz) macht es sichtbar. Hat also mit dem eigentlichen Fehler nichts zu tun.

so ist es vielleicht besser zu sehen (nur Proc abgeändert) :

Proc Init
Declare String s 
s = "RICHTIG !!!"
create("Button", &HWnd, "\:text2;", 10, 100, 60, 25)
create("Edit",   &HWnd, "\:text3;", 10, 140, 80, 25)
create("Button", &HWnd, "\:s;",     10, 180, 80, 25)
EndProc

Mir geht es darum, daß das Editfeld und der Button nicht richtig beschriftet wird.

Zitat von Jens-Arne

"..."+@chr$(Variable%)+"..."

Du meinst wohl

"..."+STR$(Variable%)+"..."

denke ich. Ein besonderer Nutzen, oder Spezialfall, wo die embedded Variablen nützlich wären, fallen mir jetzt auf die Schnelle auch nicht ein. Vielleicht stolpere ich ja irgendwann darüber. Was man vielleicht sagen kann, ist, daß man einen zusätzlichen Funktionsaufruf (Str$() ) bei numerischen Variablen spart, weil da die automatische Typkonvertierung greift bzw. RGH das dort erledigt.

Vielleicht habe ich mich auch zu sehr an die embedded - Geschichte gewöhnt. Wie auch immer :

Globale Variablen sollten auch bei dieser Konstellation funktionieren, denke ich. Der Sinn und Zweck von embedded Vars sei mal dahin gestellt. Sie sind nun mal da und sollten dann auch richtig funktionieren.

Was in diesem Zusammenhang noch interessant ist, ist folgende Spielerei :

Cls
Declare Long wert
wert = 50
Print "Ich bin " + wert + " Jahre alt."
Print "Ich bin " + Str$(wert) + " Jahre alt."
Print "Ich bin \:wert; Jahre alt."
waitkey

Warum verschluckt XProfan das "Ich bin " beim ersten Print ?

Wenn ich statt + ein ; einsetze, funktioniert es. Funktioniert auch nicht, wenn ich das einer Stringvariablen zuweise

erg = "Ich bin " + wert + " Jahre alt."

. Da scheint die automatische Konvertierung nicht bzw. nur zum Teil zu greifen.

Oder bin ich da auf dem Holzweg ?

Ich habe mir schon von Anfang an angewöhnt, diese automatische Konvertierung NICHT zu nutzen und nach alter Manier zu arbeiten. Ich gebe zu, daß in den vergangenen Jahren solche Variant-Variablen in einigen Sprachen (glaube in Perl oder Java) dazu gekommen sind, war aber nie ein Freund von diesen.So wie ich RGH's automatische Konvertierung verstanden habe, wird jeweils zu dem Ergebnistyp (erg =) hin konvertiert. Steht auch irgendwo so in der Hilfe. Daß da irgendwann mal Stolpersteine auftreten, ist klar. Auch RGH kann nicht an wirklich alles oder spezielle Konstellationen denken.

Das einzige, was ich auch gerne nutze, sind die Escape-Sequenzen. Ich denke, daß RGH die embedded Variablen irgendwann mal davon abgeleitet hatte und es uns als Schmankerl beschert hatte. Aber über den Sinn dieser Escape-Sequenzen könnte man ja auch diskutieren. Kann man auch alle selber zu Fuß machen. Es sind halt so gewisse Erleichterungen, die uns RGH bieten wollte.

Manches ist ja auch sinnvoll und gut so.