XProfan

Español

Dean
Wood

¡Hola,
Yo búsqueda después de uno Möglichkeit Arrays a una Instanz a binden, ausgehend vom Ejemplo en el Doku:

Class Hund = Geburtsdatum$(10), \
Rasse$(32),        \
Groesse%,          \
bellen@, \
tasche$[8,1]

Leider scheint dass no a trabajo, tal vez habt ihr una solución en el Yo gerade no komme.

DeanWood.

Phantasie ist nicht Ausflucht. Sich etwas vorstellen heißt, eine Welt bauen, eine Welt erschaffen. Eugène Ionesco

23.01.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 2 -

« Dieser Contribución wurde como Solución gekennzeichnet. »

- Página 2 -

RGH

Oh, como waren incluso todavía algunos Fehler drin, el me eben aber auch no auffielen:

1. El Konstruktor-Método muß auch en el Methodenliste el Klassendefinition posición. Wenn no, se ellos nie aufgerufen. .id& ha entonces also 0 y lo se entonces de XProfan X2 el ListboxListe genutzt. En XProfan 11 war el todavía no Fall y somit resultiert Su Fehlermeldung. Como .sache& entonces auch 0 es ...

2. El Método Inhalt ha einenm Parámetro. Dieser debería en el Hauptprogramm auch angegeben voluntad, Usted willst el ersten Eintrag sehen? Dieser ha el Index 0. So funktioniert lo auch con XProfan 11:

Kompilieren Marca Separación

Class Tasche = sache&,\
id&, \
tasche@,\
hinzu@,\
inhalt@

proc Tasche.Tasche

    .sache& = Crear("List",1)
    .id& = Crear("List",1)

ENDPROC

proc Tasche.hinzu

    parámetros idnr$,bzsache$
    @AddStrings(.id&,idnr$)
    @AddStrings(.sache&,bzsache$)

ENDPROC

proc Tasche.inhalt

    parámetros idnr%
    declarar zeile$,zeile2$
    zeile$ = @GetString$(.sache&,idnr%)
    zeile2$ = @GetString$(.id&,idnr%)
    zeile$=zeile$+":"+zeile2$
    volver zeile$

ENDPROC

CLS
declarar TobysTasche#
TobysTasche# = @New(Tasche,1,1)
TobysTasche#.hinzu("1","Knochen")
Imprimir TobysTasche#.inhalt(0)
waitinput

Saludo
Roland

XProfan X2
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

24.01.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dean
Wood

So Neulinge en el Arm es spaßig qué? *lach*

KekseFuer_iF%=KekseFuer_iF%-1 *kicher*

DeanWood.

XProfan 9
Phantasie ist nicht Ausflucht. Sich etwas vorstellen heißt, eine Welt bauen, eine Welt erschaffen. Eugène Ionesco

23.01.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

War no Absicht.

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

23.01.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dean
Wood

Ach war doch sólo Spaß, muss doch auch ser ;)

XProfan 9
Phantasie ist nicht Ausflucht. Sich etwas vorstellen heißt, eine Welt bauen, eine Welt erschaffen. Eugène Ionesco

23.01.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Habs en efecto como Spaß verstanden. ^ ^

Übrigens, con XProfan en lugar de:

KekseFuer_iF%=KekseFuer_iF%-1

simplemente

add KekseFuer_iF%,-1

oder

sub KekseFuer_iF%,1

escribir,

con XPSE va auch:

KekseFuer_iF--

sowie

KekseFuer_iF-

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

23.01.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dean
Wood

Ah, Gracias dass vereinfacht mi Keksbuchhaltung natürlich:
Inc KekseFuer_iF%
debería auch ir oder auch
Dec KekseFuer_iF%
jenachdem qué gerade así braucht *lach*

DeanWood.

XProfan 9
Phantasie ist nicht Ausflucht. Sich etwas vorstellen heißt, eine Welt bauen, eine Welt erschaffen. Eugène Ionesco

23.01.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dean
Wood

Na como kann Yo sí viel probieren ...

Ab XProfan10 hay lo Stringlisten y Stringgrids (Stringtabellen), el el dynamischen Umgang con großen Stringmengen deutlich vereinfachen.

después de que dass gegen 4 Uhr rausfand, Yo lo natürlich con el Interpreter Versión 11.2 intenta (XProfanFree) wo se herausstellte dass lo en Klassen probablemente no correcto funktioniert, jedenfalls kommt en
@AddStrings(.id&,idnr$)
dass esta Función no el Fensterobjekt anwendbar wäre. El Liste Yo natürlich zuvor con .id& = Crear("List",1) en el Konstruktor producido ...

Hier el Klasse "tasche.inc"

Kompilieren Marca Separación

Class Tasche = sache&,\
id&, \
hinzu@,\
inhalt@

proc Tasche.Tasche

    .sache& = Crear("List",1)
    .id& = Crear("List",1)

ENDPROC

proc Tasche.hinzu

    parámetros idnr$,bzsache$
    @AddStrings(.id&,idnr$)
    @AddStrings(.sache&,bzsache$)

ENDPROC

proc Tasche.inhalt

    parámetros idnr%
    declarar zeile$,zeile2$
    zeile$ = @GetString$(.sache&,idnr%)
    zeile2$ = @GetString$(.id&,idnr%)
    zeile$=zeile$+":"+zeile2$
    volver zeile$

ENDPROC

y aquí el dazugehörige Main "tascheMain.xprf":

Kompilieren Marca Separación

CLS
 $I tasche.inc
declarar TobysTasche#
TobysTasche# = @New(Tasche,1,1)
TobysTasche#.hinzu("1","Knochen")
Imprimir TobysTasche#.inhalt()

Apéndice - eben en el Doku gefunden:

Technisch gesehen son Stringlisten unsichtbare Listbox-Controls, ...

Wahrscheinlich se intenta una ListBox a erzeugen, el sólo versteckt se qué wiederum hier innerhalb de Klassen Profans no trabajo dürfte como el ListBox entonces kein Handle vom benötigten Ventana principal ha welches a Erstellung aber notwendig es. Vor diesem Hintergrund Es el oben genannte Fehlermeldung entonces auch otra vez logisch, untermauert se mi Vermutung dadurch dass si yo StringListen en el MainFile erzeuge, esta entonces sin Fehler trabajo.

Fazit:
Wenn Yo correcto liege, voluntad Yo wohl doch a media ID Variables y Arrays zurück necesario en el umzusetzen ...

Phantasie ist nicht Ausflucht. Sich etwas vorstellen heißt, eine Welt bauen, eine Welt erschaffen. Eugène Ionesco

24.01.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

Also bajo XProfan X2 funktioniert Su Ejemplo völlig korrekt:

Kompilieren Marca Separación

Class Tasche = sache&,\
id&, \
hinzu@,\
inhalt@

proc Tasche.Tasche

    .sache& = Crear("List",1)
    .id& = Crear("List",1)

ENDPROC

proc Tasche.hinzu

    parámetros idnr$,bzsache$
    @AddStrings(.id&,idnr$)
    @AddStrings(.sache&,bzsache$)

ENDPROC

proc Tasche.inhalt

    parámetros idnr%
    declarar zeile$,zeile2$
    zeile$ = @GetString$(.sache&,idnr%)
    zeile2$ = @GetString$(.id&,idnr%)
    zeile$=zeile$+":"+zeile2$
    volver zeile$

ENDPROC

CLS
declarar TobysTasche#
TobysTasche# = @New(Tasche,1,1)
TobysTasche#.hinzu("1","Knochen")
Imprimir TobysTasche#.inhalt()
waitinput

Als Ergebnis se "1:1" adecuado.Un Stringliste es keinem Ventana zugeordnet.
Yo voluntad ahora pero no ausschließen, dass en XProfan 11 hier todavía una Bug versteckt war.

Saludo
Roland

XProfan X2
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

24.01.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dean
Wood

Hola Roland,
danke para deine Antwort, como muss Yo wohl auch todavía una Fehler drin haben pero war en efecto ya spät ;) Normalerweise hätte rauskommen debería "1:Knochen". Bis Yo el aktuelle Versión hole, voluntad Todavía unos pocos otro Sachen ausprobieren el Yo necesariamente vorher abklären muss. Como lo una reine Textapplikation voluntad se, se lo auch para Blinde lesbar ser como voluntad Yo mich todavía genauer informieren si esta Screenreader el lo como así son el Textausgabe encima STDIN / STDOUT abfangen oder si el algo como como OCR nutzen. DrawText wäre sí para Ejemplo una Fall para OCR (oder ähnlich) si yo mich no irre, si Imprimir auch sólo encima Canvas suscrito se auch denke Yo veces.

Saludo DeanWood.

Phantasie ist nicht Ausflucht. Sich etwas vorstellen heißt, eine Welt bauen, eine Welt erschaffen. Eugène Ionesco

24.01.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

Kompilieren Marca Separación

Class Tasche = sache&,\
id&, \
tasche@,\
hinzu@,\
inhalt@

proc Tasche.Tasche

    .sache& = Crear("List",1)
    .id& = Crear("List",1)

ENDPROC

proc Tasche.hinzu

    parámetros idnr$,bzsache$
    @AddStrings(.id&,idnr$)
    @AddStrings(.sache&,bzsache$)

ENDPROC

proc Tasche.inhalt

    parámetros idnr%
    declarar zeile$,zeile2$
    zeile$ = @GetString$(.sache&,idnr%)
    zeile2$ = @GetString$(.id&,idnr%)
    zeile$=zeile$+":"+zeile2$
    volver zeile$

ENDPROC

CLS
declarar TobysTasche#
TobysTasche# = @New(Tasche,1,1)
TobysTasche#.hinzu("1","Knochen")
Imprimir TobysTasche#.inhalt(0)
waitinput