Español
Foro

Bug en RC-Versión: Select kapituliert

 

Nico
Madysa
Wird en un Select-Block una Valor con otro Werten de una Array de Estructuras verglichen, así uno inmediatamente en el erste Case-Of-Anweisung verwiesen, egal si el stimmt oder no. Mit If-Elseif-Endif passiert el no.
Minimalbeispiel:
KompilierenMarcaSeparación
Struct TPoint = x&,y&
declare b*[1]
Dim b*[],TPoint
b*[0].x& = 1
b*[0].y& = 2
b*[1].x& = %hWnd
b*[1].y& = 4
cls
print GetActiveWindow(),"=",

Select GetActiveWindow()

    CaseOf b*[0].x&

    print b*[0].x&

    CaseOf b*[0].y&

    print b*[0].y&

    CaseOf b*[1].x&

    print b*[1].x&

    CaseOf b*[1].y&

    print b*[1].y&

Endselect

Dispose b*[]
waitinput
end
 
Nico Madysa
09.08.2008  
 




Jac
de
Lad
b*[]????
 
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP
09.08.2008  
 




RGH
Das "Minimalbeispiel" es natürlich voller Fehler y fue vom Ersteller desselben offenbar niemals ausprobiert. Erstens es * kein gültiger Variablenkennzeichner, pero hier es offensichtlich el # gemeint. Schon seltsam, como konsequent el Fehler auftaucht, de los Programa allerdings inmediatamente con uno Fehlermeldung final. Zum zweiten se %hWnd uno Variables zugewiesen, bevor la ventana principal überhaupt existiert. Das Programa sería also auch en korrektem Variablenbezeichner no trabajo. Solche ungetesteten Minimalbeispiele son also alles otro como hilfreich. Das Puesto ungetesteter Codes debería verboten voluntad!

Aber andererseits: el Bug, el el Programa vergeblich a demonstrieren intenta, scheint tatsächlich seit Einführung des SELECT con XProfan 10 disponible a ser: Wenn hinter el CaseOf una Element uno Struktur- oder Objeto-Arrays es, funktioniert no correcto. Como dieser Fehler aber seit 15. Mai 2006 (also seit encima 2 Jahren) unentdeckt blieb, scheint el no así häufig vorzukommen.

Sollte lo una XProfan 11,0a oder 11,1 más o menos geben, se el Fehler como natürlich korrigiert ser.

Saludo
Roland
 
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
09.08.2008  
 




Nico
Madysa
Ääääähm - ok. Sí, Yo esta Code nie getestet. Den Originalcode Tuve no con y habe ihn rápidamente de el Kopf eingetippt. Dabei bin Yo wohl jedesmal en el Sternchen- en lugar de en el Raute-Taste gekommen, qué el Fehler erklärt.
Aunque Yo el código ahora korrigiert y Bug es siempre todavía como.
Hier Es el richtige Versión:
KompilierenMarcaSeparación
Struct TPunkt = x&,y&
declare b#[1]
Dim b#[],TPunkt
cls
b#[0].x& = 1
b#[0].y& = 2
b#[1].x& = %hWnd
b#[1].y& = 5
print b#[0].x& =,b#[0].x&
print b#[0].y& =,b#[0].y&
print b#[1].x& =,b#[1].x&
print b#[1].y& =,b#[1].y&
print GetActiveWindow(),=,

Select GetActiveWindow()

    CaseOf b#[0].x&

    print b#[0].x&

    CaseOf b#[0].y&

    print b#[0].y&

    CaseOf b#[1].x&

    print b#[1].x&

    CaseOf b#[1].y&

    print b#[1].y&

EndSelect

Dispose b#[]

while 1

    waitinput

wend

 
Nico Madysa
22.08.2008  
 




Jörg
Sellmeyer
Das es en el Ayuda a Select:


Ein beliebiger Ausdruck el Typen Float, Integer, LongInt oder String.


Usted gibst una Strukturvariable a. Lo wäre natürlich schön, si klappen sería, pero se nirgends behauptet, daß lo klappen debería.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
23.08.2008  
 



Und si él lo z.B. int()et ?
 
23.08.2008  
 




René
Wagner
Moin,

el Element, el él en el Strukturvariablen referenziert, es doch aber una Float. Yo wäre a Hand el Descripción auch su ausgegangen, dass el así klappt.

Saludo René
 
Mit XProfan erstellte Freeware findet ihr hier:  [...] 

US World Domination Tour - bombing a country near you...
23.08.2008  
 




Jörg
Sellmeyer
Zumindest Profano sieht el anders:
KompilierenMarcaSeparación
Cls

Proc Test

    WhileLoop %pcount

        print pType$(&Loop),&Loop

    Wend

EndProc

Struct TPunkt = x&,y&
declare b#[1]
Dim b#[],TPunkt
cls
b#[0].x& = 1
Declare a$,b%,c&,d!,e#
Dim e#,4
Long e#,0=1000
a$ = "a"
b% = 1
c& = 2
d! = 3.5
Test(b#[0].x&,a$,b%,c&,d!,e#)
Dispose b#[]

while 1

    waitinput

wend

 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
23.08.2008  
 




Nico
Madysa
OK, mein Fehler; el passiert, si uno en Deutschland algo después de Vernunft en lugar de después de el Regelwerk angeht. Yo voluntad sehen, si una einfaches int() el problema behebt, de otra manera muss uno simplemente una If-Anweisung nehmen.
 
Nico Madysa
29.08.2008  
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

1.145 Views

Untitledvor 0 min.
Detlef Jagolski12.12.2010

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie