XProfan

Français

Dean
Wood

Salut,
je cherche pour einer Possibilité Arrays à une Instanz trop binden, ausgehend vom Beispiel dans qui Doku:

Class le chien = date de naissance$(10), \
race$(32),        \
Groesse%,          \
bellen@, \
tasche$[8,1]

malheureusement scheint dass pas trop marcher, peut-être avez son une Solution sur qui je justement pas viens.

DeanWood.

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

23.01.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 2 -

« cette Beitrag wurde comme Solution gekennzeichnet. »

- page 2 -

RGH

eh, là étions sogar encore quelques faute drin, qui mir plan mais aussi pas auffielen:

1. qui Konstruktor-Methode doit aussi dans qui Methodenliste qui Klassendefinition stehen. si pas, wird vous nie aufgerufen. .id& hat ensuite alors 0 et es wird ensuite ab XProfan X2 qui ListboxListe genutzt. chez XProfan 11 était le reste pas qui le cas et somit resultiert Votre Fehlermeldung. là .sache& ensuite aussi 0 ist ...

2. qui Methode le contenu hat einenm paramètre. cette sollte im Hauptprogramm aussi angegeben werde, tu veux den ersten Eintrag voyons? cette hat den index 0. So funktioniert es aussi avec XProfan 11:

Kompilieren Marque Séparation

Class la poche = sache&,\
id&, \
la poche@,\
hinzu@,\
le contenu@

proc la poche.la poche

    .sache& = Créer("List",1)
    .id& = Créer("List",1)

endproc

proc la poche.hinzu

    parameters idnr$,bzsache$
    @AddStrings(.id&,idnr$)
    @AddStrings(.sache&,bzsache$)

endproc

proc la poche.le contenu

    parameters idnr%
    declare la ligne$,la ligne2$
    la ligne$ = @GetString$(.sache&,idnr%)
    la ligne2$ = @GetString$(.id&,idnr%)
    la ligne$=la ligne$+»+la ligne2$
    return la ligne$

endproc

CLS
declare TobysTasche#
TobysTasche# = @New(la poche,1,1)
TobysTasche#.hinzu("1","Knochen")
Imprimer TobysTasche#.le contenu(0)
waitinput

Salut
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 citation

Absatzweise Citation Zeilenweise Citation

Dean
Wood

So Neulinge sur den pauvre ist spaßig quoi? *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 citation

Absatzweise Citation Zeilenweise Citation

était aucun intention.

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

23.01.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Dean
Wood

ah était doch seulement Amusement, muss doch aussi son ;)

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 citation

Absatzweise Citation Zeilenweise Citation

Tricolore oui aussi comme Amusement verstanden. ^ ^

Incidemment, avec XProfan statt:

KekseFuer_iF%=KekseFuer_iF%-1

simple

add KekseFuer_iF%,-1

ou bien

sub KekseFuer_iF%,1

écrivons,

avec XPSE allez aussi:

KekseFuer_iF--

sowie

KekseFuer_iF-

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

23.01.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Dean
Wood

Ah, merci dass vereinfacht mon Keksbuchhaltung naturellement:
Inc KekseFuer_iF%
sollte aussi aller ou bien aussi
Décembre KekseFuer_iF%
jenachdem quoi on justement so 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 citation

Absatzweise Citation Zeilenweise Citation

Dean
Wood

Na là peux je oui viel essayer ...

Ab XProfan10 gibt es es Stringlisten et Stringgrids (Stringtabellen), qui den dynamischen Umgang avec grand Stringmengen deutlich simplifier.

après que je dass vers 4 montre rausfand, habe je es naturellement avec qui Interpreter Version 11.2 versucht (XProfanFree) wohin sich herausstellte dass es dans Klassen wohl pas richtig funktioniert, jedenfalls venez chez
@AddStrings(.id&,idnr$)
dass cet Funktion pas sur cela Fensterobjekt anwendbar wäre. qui liste habe je naturellement zuvor avec .id& = Créer("List",1) im Konstruktor erzeugt ...

ici qui super "tasche.inc"

Kompilieren Marque Séparation

Class la poche = sache&,\
id&, \
hinzu@,\
le contenu@

proc la poche.la poche

    .sache& = Créer("List",1)
    .id& = Créer("List",1)

endproc

proc la poche.hinzu

    parameters idnr$,bzsache$
    @AddStrings(.id&,idnr$)
    @AddStrings(.sache&,bzsache$)

endproc

proc la poche.le contenu

    parameters idnr%
    declare la ligne$,la ligne2$
    la ligne$ = @GetString$(.sache&,idnr%)
    la ligne2$ = @GetString$(.id&,idnr%)
    la ligne$=la ligne$+»+la ligne2$
    return la ligne$

endproc

et ici qui dazugehörige Main "tascheMain.xprf":

Kompilieren Marque Séparation

CLS
 $I la poche.inc
declare TobysTasche#
TobysTasche# = @New(la poche,1,1)
TobysTasche#.hinzu("1","Knochen")
Imprimer TobysTasche#.le contenu()

Nachtrag - plan dans qui Doku trouvé:

technique gesehen sommes Stringlisten unsichtbare Listbox-Controls, ...

Wahrscheinlich wird versucht une ListBox trop erzeugen, qui seulement versteckt wird quoi wiederum ici dedans de Klassen Profans pas marcher pourrait là qui ListBox ensuite ne...aucune Handle vom nécessaire Hauptfenster hat welches zur Erstellung mais notwendig ist. avant diesem Hintergrund ist qui dessus genannte Fehlermeldung ensuite aussi wieder logisch, untermauert wird mon Vermutung dadurch dass si je StringListen im MainFile erzeuge, cet ensuite sans faute marcher.

Fazit:
si je richtig liege, werde je wohl doch trop meinen ID Variablen et Arrays zurück doit um cela umzusetzen ...

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

24.01.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

alors sous XProfan X2 funktioniert Dein Beispiel völlig korrekt:

Kompilieren Marque Séparation

Class la poche = sache&,\
id&, \
hinzu@,\
le contenu@

proc la poche.la poche

    .sache& = Créer("List",1)
    .id& = Créer("List",1)

endproc

proc la poche.hinzu

    parameters idnr$,bzsache$
    @AddStrings(.id&,idnr$)
    @AddStrings(.sache&,bzsache$)

endproc

proc la poche.le contenu

    parameters idnr%
    declare la ligne$,la ligne2$
    la ligne$ = @GetString$(.sache&,idnr%)
    la ligne2$ = @GetString$(.id&,idnr%)
    la ligne$=la ligne$+»+la ligne2$
    return la ligne$

endproc

CLS
declare TobysTasche#
TobysTasche# = @New(la poche,1,1)
TobysTasche#.hinzu("1","Knochen")
Imprimer TobysTasche#.le contenu()
waitinput

comme Ergebnis wird "1:1" angezeigt.une Stringliste ist aucun la fenêtre zugeordnet.
je veux maintenant mais pas ausschließen, dass dans XProfan 11 ici encore un Bug versteckt était.

Salut
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 citation

Absatzweise Citation Zeilenweise Citation

Dean
Wood

allô Roland,
merci pour deine Antwort, là muss je wohl aussi encore une faute drin avons mais es était oui aussi déjà spät ;) normalement hätte rauskommen devoir "1:Knochen". jusqu'à je mir qui aktuelle Version hole, werde je encore un paire autre Sachen ausprobieren qui je absolument auparavant clarifier muss. là es une reine Textapplikation volonté soll, soll es aussi pour Blinde lesbar son là veux je mich encore genauer informer si cet Screenreader qui es là so gibt qui Textausgabe sur STDIN / STDOUT intercepter ou bien si qui quelque chose comme comment OCR nutzen. DrawText wäre oui zum Beispiel un le cas pour OCR (ou bien ähnlich) si je mich pas irre, si Imprimer aussi seulement sur Canvas gezeichnet wird aussi denke je la fois.

Salut DeanWood.

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

24.01.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

Kompilieren Marque Séparation

Class la poche = sache&,\
id&, \
la poche@,\
hinzu@,\
le contenu@

proc la poche.la poche

    .sache& = Créer("List",1)
    .id& = Créer("List",1)

endproc

proc la poche.hinzu

    parameters idnr$,bzsache$
    @AddStrings(.id&,idnr$)
    @AddStrings(.sache&,bzsache$)

endproc

proc la poche.le contenu

    parameters idnr%
    declare la ligne$,la ligne2$
    la ligne$ = @GetString$(.sache&,idnr%)
    la ligne2$ = @GetString$(.id&,idnr%)
    la ligne$=la ligne$+»+la ligne2$
    return la ligne$

endproc

CLS
declare TobysTasche#
TobysTasche# = @New(la poche,1,1)
TobysTasche#.hinzu("1","Knochen")
Imprimer TobysTasche#.le contenu(0)
waitinput