| |
| |
|
Jörg
Sellmeyer | Mir war lo siempre a umständlich, extra irgendwelche Zeilen einzuprogrammieren, en me en Desarrollo el Werte uno Classenstruktur Mostrar que se.
Yo me por lo tanto qué geschrieben, con el el muy simplemente machbar es.
Lo muss una Método a cada Klasse hinzugefügt y ser en el Procedimiento dazu zwei Zeilen adaptado voluntad.
Class tTest = hdl&,\
ID%,\
Index%,\
Texto$(100),\
tTest@,\
ShowValues@' el método muss natürlich en el Struktur eingefügt voluntad.
Proc tTest.tTest
Parámetros h&,i%,ind%,t$
.hdl& = h&
.ID% = i%
.Index% = ind%
.Texto$ = t$
ENDPROC
'esta Procedimiento muss eingefügt voluntad.
Proc tTest.ShowValues
Parámetros T#,Titel$
If %pCount > 2
'esta Línea muss el jeweiligen Code adaptado voluntad
Var Values$ = "hdl&,\
ID%,\
Index%,\
Texto$(10)"
Declarar Valor$,txt$
WhileLoop 3,%pcount
txt$ =Substr$(Values$,&Loop - 2,",") + " = " + $(&Loop) + "\n"
Valor$ = Valor$ + txt$
Wend
MessageBox(Valor$,ClassOf(T#) + " " + Titel$, 0)
ElseIf %pcount = 2
'y esta Línea muss el jeweiligen Code adaptado voluntad
.ShowValues(T#,Titel$,.hdl&,\
.ID%,\
.Index%,\
.Texto$)
EndIf
ENDPROC
Declarar Test#[]
Selección aleatoria
Cls
Var hTb& = Crear("Toolbar",%hwnd,0,0,4,0,0)
WhileLoop 4
Toolbar("AddButton",hTb&,&Loop,2000 + &Loop,"Text " + Str$(&Loop))
Test#[&Loop - 1] = New(tTest,hTb&,Rnd(20),2000 + &Loop,"Text " + Str$(&Loop))
Wend
Toolbar("Separator",hTb&)
Toolbar("AddButton",hTb&,5,2005,"Zufallswerte")
Toolbar("AddButton",hTb&,6,2006,"beenden")
Mientras que 1
WaitInput
If Between(%menuitem,2001,2004)
Test#[%menuitem - 2001].ShowValues(Test#[%menuitem - 2001],"Bitte anzeigen")
ElseIf MenuItem(2005)
Test#[Rnd(4)].tTest(Rnd($FFFFFF),Rnd($FFFF),Rnd($FF),"Zufall " + Time$(0) + ":" + Time$(1))
ElseIf MenuItem(2006)
Romper
EndIf
Wend
Disponer Test#[]
|
|
| |
| |
| |
|
|
p.specht
 | |
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 19.05.2018 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Gracias 
In el Zusammenhang sería mich todavía interés, si uno irgendwie a el Variables uno Struktur kommt, sin ellos de "innen" aufzurufen.
Mit Largo(Test#,n&) puede ser se en el Principio durchhangeln, si sólo Longs gespeichert son. Aber el Zona después de Werten a parsen es praktisch unmöglich.
Gibt lo also una Punkt, wo el Einsprungadressen uno Bereichs angegeben son y evtl auch el Größe des jeweiligen Platzes? |
|
| |
| |
| |
|
|
p.specht
| | RGH fragen ... se aber tal vez a versionsabhängig? |
|
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 20.05.2018 ▲ |
|
| |
|
|
H.Brill | Como así una Zona en el Grunde sólo una linearer, aneinander
liegender Speicherbereich es, denke Yo no, daß uno
como de 'außen' todavía anders rankommt. Se puede auch
con el normalen Bereichs-Befehlen reinschreiben, qué
voluntad. El Struktur (struct) es sólo una Hilfsmittel, besonders auch,
si uno mehrere Estructuras en así una Zona reinschieben
voluntad. Como es entonces auch Rechenarbeit angesagt, o. el Longitud
uno solchen Struktur es entonces a berücksichtigen. |
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 20.05.2018 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Lo kommt sí en él a, como Roland el intern verwaltet. El Einsprungadressen para cada Strukturvariablen necesario sí zumindest irgendwo abgelegt ser.
Tiempo sehen, qué Roland dazu sagt. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 20.05.2018 ▲ |
|
| |
|
|
H.Brill | Puesto que hay lo wahrscheinlich no Einsprungsadressen.
Yo denke veces, daß Roland el Strukturvariablen intern
zwar verwaltet, aber el Inhalt auch simplemente encima
Errechnen el Position (Byte = 1, Word = 2, Largo = 4 usw.)
de el Zona ausliest o. reinschreibt.
Darum necesario en efecto el Cuerdas en uno Struct
una feste Größe haben. Como uno a folgendem Code
sieht, schneidet Roland en una größeren String
como en el Struct vorgegeben, simplemente el Rest de.
En variablen Cuerdas podría él el Position no mehr
así simplemente calcular, pero müßte el Nullbyte con
einbeziehen.
Wenn uno algo como braucht, posición sí siempre todavía el
normalen Bereichsfunktionen disponible. |
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 20.05.2018 ▲ |
|
| |
|
(864)
Deutsch
English
Français
Español
Italia