| |
|
|
- Page 1 - |
|
Dean Wood | Hi, I Search after a Possibility Arrays on a instance To link, ausgehend of example in the Doku:
unfortunately shining that not To functions, Perhaps have your a Solution on The I straight not come.
DeanWood. |
|
|
| Phantasie ist nicht Ausflucht. Sich etwas vorstellen heißt, eine Welt bauen, eine Welt erschaffen. Eugène Ionesco | 01/23/13 ▲ |
|
|
|
| |
|
- Page 2 - |
|
|
« this Posting watts as Solution marked. » |
|
- Page 2 - |
|
RGH | Oh, there were even yet some Error drin, The me even but neither auffielen:
1. The Konstruktor-method must too in the Methodenliste the Klassendefinition stand. unless, becomes tappt im dunkeln never called. .id& has then means 0 and it'll then ex XProfan X2 The ListboxListe used. with XProfan 11 was not yet the case and accordingly result your Error Message. there .sache& then too 0 is ...
2. The method Content has einenm Parameter. this ought to in the Hauptprogramm too indicated will be, You want whom first entry see? this has whom index 0. so functions it too with XProfan 11:
Class Tasche = sache&,\
id&, \
tasche@,\
hinzu@,\
content@
proc Tasche.Tasche
.sache& = Create("List",1)
.id& = Create("List",1)
endproc
proc Tasche.hinzu
parameters idnr$,bzsache$
@AddStrings(.id&,idnr$)
@AddStrings(.sache&,bzsache$)
endproc
proc Tasche.content
parameters idnr%
declare row$,row2$
row$ = @GetString$(.sache&,idnr%)
row2$ = @GetString$(.id&,idnr%)
row$=$ row+":"+row2$
return row$
endproc
CLS
declare TobysTasche#
TobysTasche# = @New(Tasche,1,1)
TobysTasche#.hinzu("1","Knochen")
Print TobysTasche#.content(0)
waitinput
Greeting Roland |
|
|
| XProfan X2Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 01/24/13 ▲ |
|
|
|
|
|
Dean Wood | so Neulinge on the poor is spaßig what? *lach*
KekseFuer_iF%=KekseFuer_iF%-1 *kicher*
DeanWood. |
|
|
| XProfan 9Phantasie ist nicht Ausflucht. Sich etwas vorstellen heißt, eine Welt bauen, eine Welt erschaffen. Eugène Ionesco | 01/23/13 ▲ |
|
|
|
|
| was no solid. |
|
|
| |
|
|
|
Dean Wood | alas was still only Fun, must still too his ;) |
|
|
| XProfan 9Phantasie ist nicht Ausflucht. Sich etwas vorstellen heißt, eine Welt bauen, eine Welt erschaffen. Eugène Ionesco | 01/23/13 ▲ |
|
|
|
|
| Habs indeed as Fun understood. ^^
Übrigens, with XProfan instead of:
KekseFuer_iF%=KekseFuer_iF%-1
simply
add KekseFuer_iF%,-1
or
sub KekseFuer_iF%,1
Writing
with XPSE goes too:
KekseFuer_iF--
as well as
KekseFuer_iF-
|
|
|
| |
|
|
|
Dean Wood | Ah, thanks that vereinfacht my Keksbuchhaltung naturally: Inc KekseFuer_iF% ought to too weg or Dec KekseFuer_iF% according as what straight so need *lach*
DeanWood. |
|
|
| XProfan 9Phantasie ist nicht Ausflucht. Sich etwas vorstellen heißt, eine Welt bauen, eine Welt erschaffen. Eugène Ionesco | 01/23/13 ▲ |
|
|
|
|
Dean Wood | well there can I Yes plenty try ...
ex XProfan10 there it Stringlisten and Stringgrids (Stringtabellen), The whom dynamic Use with large Stringmengen explicit vereinfachen. after I that against 4 watch rausfand, have I it naturally with the Interpreter Version 11.2 attempts (XProfanFree) where itself herausstellte that it in classes well not correctly. functions, anyway comes with @AddStrings(.id&,idnr$) that these function not the Fensterobjekt applicable would. The list have I naturally before with .id& = Create("List",1) in the Konstruktor created ...
here The class "tasche.inc"
Class Tasche = sache&,\
id&, \
hinzu@,\
content@
proc Tasche.Tasche
.sache& = Create("List",1)
.id& = Create("List",1)
endproc
proc Tasche.hinzu
parameters idnr$,bzsache$
@AddStrings(.id&,idnr$)
@AddStrings(.sache&,bzsache$)
endproc
proc Tasche.content
parameters idnr%
declare row$,row2$
row$ = @GetString$(.sache&,idnr%)
row2$ = @GetString$(.id&,idnr%)
row$=$ row+":"+row2$
return row$
endproc
and here The dazugehörige Main "tascheMain.xprf":
Nachtrag - even in the Doku found:
technical seen are Stringlisten unsichtbare Listbox-Controls, ...
probably becomes attempts a ListBox To produce, The only cache becomes what against here within classes Profans not functions might since the ListBox then no lever of required Mainwindow has which to Creation but necessary is. to this background is the supra named Error Message then again logical, underpins becomes my supposition therefore that if I StringListen in the MainFile beget, these then without Error functions.
Fazit: If I correctly. lie, I will well still To my ID Variables and Arrays back must around the umzusetzen ... |
|
|
| Phantasie ist nicht Ausflucht. Sich etwas vorstellen heißt, eine Welt bauen, eine Welt erschaffen. Eugène Ionesco | 01/24/13 ▲ |
|
|
|
|
RGH | means under XProfan X2 functions your example completely correctly:
Class Tasche = sache&,\
id&, \
hinzu@,\
content@
proc Tasche.Tasche
.sache& = Create("List",1)
.id& = Create("List",1)
endproc
proc Tasche.hinzu
parameters idnr$,bzsache$
@AddStrings(.id&,idnr$)
@AddStrings(.sache&,bzsache$)
endproc
proc Tasche.content
parameters idnr%
declare row$,row2$
row$ = @GetString$(.sache&,idnr%)
row2$ = @GetString$(.id&,idnr%)
row$=$ row+":"+row2$
return row$
endproc
CLS
declare TobysTasche#
TobysTasche# = @New(Tasche,1,1)
TobysTasche#.hinzu("1","Knochen")
Print TobysTasche#.content()
waitinput
as Result becomes "1:1" displayed.an Stringliste is keinem Window zugeordnet. i will now but not exclude, that in XProfan 11 here another bow cache was.
Greeting Roland |
|
|
| XProfan X2Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 01/24/13 ▲ |
|
|
|
|
Dean Wood | Hello Roland, thanks for your response, there must I well too yet a Error drin having but it was indeed already late ;) usually had rauskommen should "1:Knochen". To I me The actually Version fetch, I will another couple others things try The I absolutely before clarify must. there it a pure Textapplikation go should, should it too for blind readable his there I will me yet accurate informieren whether these Screenreader The it there so gives The Textausgabe over STDIN / STDOUT intercepting or whether The something like How OCR benefit. DrawText would Yes to that example one drop for OCR (or similar) if I me not crazy, if Print too only over Canvas drawn becomes too think I time.
Greeting DeanWood. |
|
|
| Phantasie ist nicht Ausflucht. Sich etwas vorstellen heißt, eine Welt bauen, eine Welt erschaffen. Eugène Ionesco | 01/24/13 ▲ |
|
|
|
|
RGH | Oh, there were even yet some Error drin, The me even but neither auffielen:
1. The Konstruktor-method must too in the Methodenliste the Klassendefinition stand. unless, becomes tappt im dunkeln never called. .id& has then means 0 and it'll then ex XProfan X2 The ListboxListe used. with XProfan 11 was not yet the case and accordingly result your Error Message. there .sache& then too 0 is ...
2. The method Content has einenm Parameter. this ought to in the Hauptprogramm too indicated will be, You want whom first entry see? this has whom index 0. so functions it too with XProfan 11:
Class Tasche = sache&,\
id&, \
tasche@,\
hinzu@,\
content@
proc Tasche.Tasche
.sache& = Create("List",1)
.id& = Create("List",1)
endproc
proc Tasche.hinzu
parameters idnr$,bzsache$
@AddStrings(.id&,idnr$)
@AddStrings(.sache&,bzsache$)
endproc
proc Tasche.content
parameters idnr%
declare row$,row2$
row$ = @GetString$(.sache&,idnr%)
row2$ = @GetString$(.id&,idnr%)
row$=$ row+":"+row2$
return row$
endproc
CLS
declare TobysTasche#
TobysTasche# = @New(Tasche,1,1)
TobysTasche#.hinzu("1","Knochen")
Print TobysTasche#.content(0)
waitinput
Greeting Roland |
|
|
| XProfan X2Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 01/24/13 ▲ |
|
|
|
|
Dean Wood | thanks, thanks Habs even probiert and it functions, well was my first class for I ment Yes straight again so through (Yes I know really not but somehow must one itself Yes courage make)
Greeting, DeanWood. |
|
|
| XProfan 9Phantasie ist nicht Ausflucht. Sich etwas vorstellen heißt, eine Welt bauen, eine Welt erschaffen. Eugène Ionesco | 01/24/13 ▲ |
|
|
|
|
| [OFFTOPIC]hint: If Topics Done are simply under left on Done clicking.[/OFFTOPIC] |
|
|
| |
|
|
|
Dean Wood | [OFFTOPIC]thanks, I had overlooking [/OFFTOPIC] |
|
|
| XProfan 9Phantasie ist nicht Ausflucht. Sich etwas vorstellen heißt, eine Welt bauen, eine Welt erschaffen. Eugène Ionesco | 01/24/13 ▲ |
|
|
|