Constanten defines array

[satmax]

Noch eine Alternative:

Code: Alles auswählen

CONSTANT
	MEINE_FELDER = "artnr, matchcode, text1, text, warengruppe"
END

Info(fieldGet(MEINE_FELDER,3))

Code: Alles auswählen

PROCEDURE fieldGet(sFelder,n)
arrArtikelfelder is array of string
StringToArray(sFelder, arrArtikelfelder,",")

IF n > ArrayCount(arrArtikelfelder) OR n < 1 THEN
	RESULT ""
ELSE	
	RESULT arrArtikelfelder[n]
END

[Werner_Bayern]

Servus,

also ohne Variable gehts bei Arrays also nicht, man kann sowas nicht einfach in den Code schreiben, wie bei Xbase++?

Danke Euch beiden. Habs damals dann eh so gelöst:

Code: Alles auswählen

PROCEDURE Kundenauftragsart(nWas)
LOCAL
	arrText is array of strings = ["Angebot", "Auftrag", "Rechnung"]
RESULT arrText[nWas]

In Xbase++ würde ich schreiben:

Code: Alles auswählen

function Kundenauftragsart(nWas)
return {"Angebot", "Auftrag", "Rechnung"}[nWas]

[satmax]

Windev ist nicht xBase, da geht vieles anders, umgekehrt geht vieles weniger... ;-)


Sie dir mal Enumeration an, ich finde Namen immer lesbarer wie Zahlen:

Code: Alles auswählen

EAuftragsart is Enumeration
	Angebot =1
	Auftrag =2
	Rechnung =3
END

SWITCH EAuftragsart
	CASE Angebot
		
	CASE Auftrag
		
	CASE Rechnung
		
END
Info(EAuftragsart.Angebot)
Info(EAuftragsart.Auftrag)

[Werner_Bayern]

Danke!

Sieht ja ein bisschen in Richtung DO aus...

[satmax]

DO ?

[Werner_Bayern]

Dataobject ;-)

[satmax]

Ahh, ich kenn enum halt von c++