Funktionen auf ZRList

• GetFocus
• SetFocus
• ZRList
• AnzZR
• ZRNr
• ZRPos
• FirstZR
• PrioZR
• Query
• QueryListe
• OrtQuery
• ParamQuery
• ZRLZip
• ZRLSetInfo
• GetZRList
• ZRLStr
• ZRLInfo
• Operator +
• Operator -

• Beispiel zu GetFocus, SetFocus, FirstZR, PrioZR, OrtQuery
• Beispiel zu ZRList, FirstZR, Query, OrtQuery, ParamQuery und Operator +

Beispiel zu GetFocus, SetFocus, FirstZR, PrioZR, OrtQuery

 
# Beispielprogramm zu den Funktionen GetFocus, SetFocus, FirstZR, PrioZR, 
# OrtQuery

AZUR () HREF="explizit/.html"> 
	zrl := OrtQuery ("Lemming")
	Print (zrl)
Print () HREF="explizit/.html"> 
	bereich := GetFocus (zrl)
	Print (bereich)
Print () HREF="explizit/.html"> 
	zr1 := FirstZR (zrl)
	maxf := MaxFocusZR (zr1)
	l := Links (maxf)
	r := Rechts (maxf)
	FORALL zr IN zrl
		Print (zr)
		li := Links (MaxFocusZR(zr))
		IF (l > li)
			l := li
		ENDIF
		re := Rechts (MaxFocusZR(zr))
		IF (r < re)
			r := re
		ENDIF
	ENDFOR
Print () HREF="explizit/.html"> 
	SetFocus (zrl, [l,r])
	Print (GetFocus (zrl))
Print () HREF="explizit/.html"> 
	zrneu := PrioZR (zrl, GetFocus(zrl), "Baggerer", "Lemming", true)
	Print (zrneu)
	qf := Quantenfolge (zrneu, MAXFOCUS)
	FORALL q IN qf
		Print (XBereich(q), " ", YRechts(q))
	ENDFOR
END

 
+-Infty
+-Infty
lemming.bi0
lemming.gi0
[+-Infty,+-Infty]
(Lemming,Buddler,,,0,,Z)
(Lemming,Graber,,,0,,Z)
[01.01.90,08.01.90]
(Lemming,Baggerer,,,0,M,Z)
[01.01.90,02.01.90] 10
[02.01.90,03.01.90] 12
[03.01.90,04.01.90] 8
[04.01.90,05.01.90] 12
[05.01.90,06.01.90] Lücke
[06.01.90,07.01.90] 7
[07.01.90,08.01.90] 5

Beispiel zu ZRList, FirstZR, Query, OrtQuery, ParamQuery und Operator +

 
# Beispielprogramm zu den Funktionen ZRList, FirstZR, Query, OrtQuery, 
# ParamQuery und zum Operator + 

AZUR () HREF="explizit/.html"> 
zrl := HREF="explizit/().html"> ()
	Print ("Eine leere ZRList :")
	Print (zrl)
rt := HREF="explizit/().html"> ()
	setText (rt, "ORT", "1190")
	setText (rt, "PARAMETER", "Temperatur")
	liste1 := Query (rt)
	liste2 := OrtQuery ("1119")
	liste3 := ParamQuery ("Temperatur")
Print () HREF="explizit/.html"> 
	Print ("Liste 1:")
	FORALL zr1 IN liste1
		Print (zr1)
	ENDFOR
Print () HREF="explizit/.html"> 
	Print ("Liste 2:")
	FORALL zr2 IN liste2
		Print (zr2)
	ENDFOR
Print () HREF="explizit/.html"> 
	Print ("Liste 3:")
	FORALL zr3 IN liste3
		Print (zr3)
	ENDFOR
Print () HREF="explizit/.html"> 
	liste4 := liste1 + FirstZR (liste2)
	Print ("Liste 4 (Liste 1 + erste ZR von Liste 2):")
	FORALL zr4 IN liste4
		Print (zr4)
	ENDFOR
END

 
Eine leere ZRList :
+-Infty
+-Infty

Liste 1:
(1190,TEMPERATUR,,T,,G,Z)

Liste 2:
(1119,Niederschlag,Sum,M,,G,Z)
(1119,Niederschlag,Lck,M,,A,Z)

Liste 3:
(1190,TEMPERATUR,,T,,G,Z)
(2205,TEMPERATUR,,T,,G,Z)
(2211,TEMPERATUR,,T,,G,Z)

Liste 4 (Liste 1 + erste ZR von Liste 2):
(1190,TEMPERATUR,,T,,G,Z)
(1119,Niederschlag,Sum,M,,G,Z)