Ja:
Code: Alles auswählen
procedure main
local oData := dataobject():new()
oData:name := "Sepp"
oData:setNoIVar("next:href", "Josef")
? oData:getNoIVar("next:href")
wait
return
Moderator: Moderatoren
Ja:
Code: Alles auswählen
procedure main
local oData := dataobject():new()
oData:name := "Sepp"
oData:setNoIVar("next:href", "Josef")
? oData:getNoIVar("next:href")
wait
return
Tom, schau mein Beispiel genauer an...
Und zwar an dem von dir geschrieben Code "oDoRueckgabe:links:next:href"Der Fehler tritt beim kompilieren auf.
Code: Alles auswählen
FUNCTION Main()
LOCAL cJsonText, oData
TEXT INTO cJsonText WRAP
{
"Herausgeber": "Xema",
"Nummer": "1234-5678-9012-3456",
"Deckung": 10000,
"Waehrung": "EURO",
"next": 17,
"Inhaber":
{
"Name": "Mustermann",
"Vorname": "Max",
"maennlich": true,
"Hobbys": ["Reiten", "Golfen", "Lesen"],
"Alter": 42,
"Kinder": [],
"Partner": null
}
}
ENDTEXT
oData := Json2Var(cJsonText)
? oData:GetNoIvar("next") // Ergebnis: 17
oData:_next := oData:GetNoIvar("next")
? oData:_next // Ergebnis: 17
return NIL
Code: Alles auswählen
FUNCTION Main()
LOCAL cJsonText, oData
TEXT INTO cJsonText WRAP
{
"Herausgeber": "Xema",
"Nummer": "1234-5678-9012-3456",
"Deckung": 10000,
"Waehrung": "EURO",
"next":
{ "one": 1,
"two": 2 },
"Inhaber":
{
"Name": "Mustermann",
"Vorname": "Max",
"maennlich": true,
"Hobbys": ["Reiten", "Golfen", "Lesen"],
"Alter": 42,
"Kinder": [],
"Partner": null
}
}
ENDTEXT
oData := Json2Var(cJsonText)
? oData:GetNoIvar("next") // Ergebnis: Data Object
oData:_next := oData:GetNoIvar("next")
? oData:_next:one // Ergebnis: 1
return NIL
man kann doch auch kein Feld in einer DBF "NEXT" nennen.
Der Befehl NEXT existiert ja nicht nur unter xBase. auch unter SQL gibt es NEXT.File: TNEXT.prg Line: 85
_TNEXT.PRG(34:0): error XBT0223: NEXT does not match FOR
_TNEXT.PRG(45:0): warning XBT0112: Implicit method declaration, using class:
NewForm
_TNEXT.PRG(45:0): warning XBT0107: Method NEWFORM:INIT() does not end with RETURN
_TNEXT.PRG(46:0): warning XBT0112: Implicit method declaration, using class:
NewForm
_TNEXT.PRG(46:0): warning XBT0107: Method NEWFORM:CREATE() does not end with RETURN
_TNEXT.PRG(47:0): error XBT0251: Reserved keyword
_TNEXT.PRG(51:0): warning XBT0107: Method MAIN() does not end with RETURN
_TNEXT.PRG(103:0): error XBT0223: NEXT does not match FOR
_TNEXT.PRG(104:0): error XBT0223: NEXT does not match FOR
_TNEXT.PRG(105:0): error XBT0223: NEXT does not match FOR
_TNEXT.PRG(106:0): error XBT0223: NEXT does not match FOR
_TNEXT.PRG(159:0): error XBT0223: NEXT does not match FOR
7 error(s) found in file TNEXT.prg!
je nachdem in welcher Phase des Projekts man betreiligt wird.
Code: Alles auswählen
Obj.Next.Number
Code: Alles auswählen
Obj:Next:Number
Code: Alles auswählen
Obj:Next(Number)
Code: Alles auswählen
oDoRueckgabe:links:next:href
Code: Alles auswählen
Obj.Next.Number
Och, Jimmy.ist das NEXT IMHO keine Property sondern eine Method
Code: Alles auswählen
o := Json2Var(<cString>)
? o:while
? o:endif
* usw.
es geht auch keine Function oder Method mit KEYWORD als Namen unter Xbase++ ... auch nicht mit NoIVar-> NEXT does not match FOR / Reserved keyword
Code: Alles auswählen
object.next