Aktuelle Zeit: 04.06.2020 18:28

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 7 Beiträge ] 
Autor Nachricht
 Betreff des Beitrags: debug Structure
BeitragVerfasst: 11.01.2020 21:31 
Offline
Benutzeravatar

Registriert: 19.02.2010 20:19
Wohnort: Darmstadt
Hallo,

wie kann ich Daten mit structure ausgeben ohne einzelnen zu ausgeben per Debug?
Code:
Structure _pos
  x.i
  y.i 
EndStructure

Structure _dimension
  w.i
  h.i 
EndStructure

Structure _list
  name.s
  pos.i 
EndStructure

Structure _specifications
  List._list
  pos._pos
  dimension._dimension
  name.s
EndStructure

NewList specifications._specifications()

AddElement(specifications())

With specifications()
  \name = "Test"
  \pos\x = 10
  \pos\y = 20
  \dimension\h = 15
  \dimension\w = 25
  \list\name = "Test list"
  \list\pos = 1
EndWith

Debug specifications()  ???

Gruss
MarcelX

_________________
Win-10, PB 5.31 (Windows - x86)


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: debug Structure
BeitragVerfasst: 11.01.2020 21:38 
Offline
Kommando SG1
Benutzeravatar

Registriert: 01.11.2005 13:34
Wohnort: Glienicke
z.B. mit JSON, die Hilfe zeigt hier sogar ein Beispiel wie du es hast:
https://www.purebasic.com/documentation/json/insertjsonstructure.html

_________________
Bild
 
BildBildBild


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: debug Structure
BeitragVerfasst: 11.01.2020 21:41 
Offline
Benutzeravatar

Registriert: 20.04.2006 09:50
Code:
json = CreateJSON(#PB_Any)
InsertJSONList(JSONValue(json), specifications())
Debug ComposeJSON(json, #PB_JSON_PrettyPrint)
FreeJSON(json)

_________________
my pb stuff..
Bild..jedenfalls war das mal so.


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: debug Structure
BeitragVerfasst: 11.01.2020 21:45 
Offline
Benutzeravatar

Registriert: 19.02.2010 20:19
Wohnort: Darmstadt
Wunderbar - danke STARGÅTE
das war eine schnelle Antwort

Code:
  If CreateJSON(0)
    InsertJSONStructure(JSONValue(0), @specifications(), _specifications)
    Debug ComposeJSON(0, #PB_JSON_PrettyPrint)
  EndIf

_________________
Win-10, PB 5.31 (Windows - x86)


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: debug Structure
BeitragVerfasst: 11.01.2020 22:42 
Offline
Benutzeravatar

Registriert: 19.02.2010 20:19
Wohnort: Darmstadt
wie kann ich eine Structure an eine Procedure übergeben?
Ich möchte mit eine allgemeine Procedure strukturierten Daten anzeigen:
Code:
Procedure debugStr(*adr, str)
  Debug "----------------------"
  If CreateJSON(0)
    InsertJSONStructure(JSONValue(0), *adr, str)
    Debug ComposeJSON(0, #PB_JSON_PrettyPrint)
  EndIf
  Debug "----------------------"   
EndProcedure
debugStr(@specifications(), _specifications)

So funktioniert nicht.
EDIT: so funktioniert - ich hatte _specifications in Hochkomma gesetzt und geht auch nicht

_________________
Win-10, PB 5.31 (Windows - x86)


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: debug Structure
BeitragVerfasst: 12.01.2020 04:17 
Online
Benutzeravatar

Registriert: 24.11.2004 13:12
Wohnort: Germany
Das geht leider nicht, da die Strukturen zur Compilerzeit aufgelöst werden.

Mit Macros kann man einiges lösen.

Code:
Structure sFoo
  iVal.i
  sVal.s
  List ListVal.i()
EndStructure

Macro debugStr(adr, str)
  Debug "----------------------"
  If CreateJSON(0)
    InsertJSONStructure(JSONValue(0), adr, str)
    Debug ComposeJSON(0, #PB_JSON_PrettyPrint)
  EndIf
  Debug "----------------------"   
EndMacro

data1.sfoo

debugStr(data1, sfoo)

_________________
Alles ist möglich, fragt sich nur wie...
Projekte ThreadToGUI / EventDesigner V3 / OOP-BaseClass-Modul / OPC-Helper DLL
PB v3.30 / v5.4x - OS Mac Mini OSX 10.xx / Window 10 Pro. (X64) /Window 7 Pro. (X64) / Window XP Pro. (X86) / Ubuntu 14.04
Downloads auf My Webspace


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: debug Structure
BeitragVerfasst: 12.01.2020 11:07 
Offline
Benutzeravatar

Registriert: 19.02.2010 20:19
Wohnort: Darmstadt
Danke mk-soft für die Erläuterung der Hintergrund.
Daran habe ich nicht gedacht.

_________________
Win-10, PB 5.31 (Windows - x86)


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 7 Beiträge ] 

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye