XProfan

English

Nico
Madysa

becomes in a Select-block one worth with others Values a aray of Structures compared, so becomes one immediate into first Case-Of-instruction verwiesen, alike whether the is correct or not. with If-Elseif-Endif happens not.
Minimalbeispiel:
Compile Mark Separation

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

08/09/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

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

08/09/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

the "Minimalbeispiel" is naturally voller Error and was of Ersteller desselben evident never ausprobiert. in the first is * no gültiger Variablenkennzeichner, separate here's evident the # meant. already strange, How streng the Error auftaucht, the the program though immediate with of/ one Error Message exits. to that second becomes %hWnd of/ one variables allocated, before the Mainwindow at all existing. the Program would means too with korrektem Variablenbezeichner not functions. such ungetesteten Minimalbeispiele are means everything else as helpful. the Post ungetesteter Codes ought to prohibited go!

but on the other hand: the bow, whom the program in vain To demonstrating attempts, shining objectively since introduction the SELECT with XProfan 10 present To his: If behind the CaseOf one element one structure- or Objekt-Arrays standing, functions not correctly.. there this Error but since 15. May 2006 (means since over 2 years) undetected stayed, shining not so often vorzukommen.

ought to it one XProfan 11,0a or 11,1 or so give, becomes the Error there naturally korrigiert his.

Greeting
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

08/09/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Nico
Madysa

Ääääähm - ok. Yes, I have this code never tested. whom Originalcode I had not and I it quick from the head eingetippt. thereby be I well jedesmal on The asterisk- instead of on The rhombus-Button come, what whom Error declared.
though have I the code now korrigiert and the bow is still there.
here's The right Version:
Compile Mark Separation

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

08/22/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

the standing in the Help Select:

One beliebiger expression the Types Float, Integer, LongInt or String.

You give a Strukturvariable on. it would naturally beautiful, if it klappen would, but it'll nirgends behauptet, that it klappen ought to.

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

08/23/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

And if it it z.B. int()et ?

08/23/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

René
Wagner

Moin,

the element, the it in the Strukturvariablen referenziert, is still but one Float. I would on hand the Description too of it gone out, that the so works.

Greeting René

Mit XProfan erstellte Freeware findet ihr hier: [...]

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

08/23/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

at least Profan sees the differently:
Compile Mark Separation

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