[Inhalt] [Zurück] [Weiter] [Thema] [Index]

Funktionen auf Relation





[Inhalt] [______] [Weiter] [Thema] [Index]

Beispiel zu NewRelation, Struktur, AppTupel


  
# Beispielprogramm zu den Funktionen NewRelation, Struktur, AppTupel, AnzTupel

AZUR () HREF="explizit/.html"> 
	R := NewRelation ("B\ucher", "Titel#50s,Autor#20s,Bestnr#10.0n")
	t := Tupel (Struktur(R));
	Print ("Struktur der neuen Relation : ", t)
	
	setText (t, "Titel", "The Hitchhiker's Guide To The Galaxy")
	setText (t, "Autor", "D. Adams")
	setZahl (t, "Bestnr", 111)
	AppTupel (R, t)
	
	setText (t, "Titel", "The Restaurant At The End Of The Universe")
	setText (t, "Autor", "D. Adams")
	setZahl (t, "Bestnr", 222)
	AppTupel (R, t)

	setText (t, "Titel", "Life, The Universe and Everything")
	setText (t, "Autor", "D. Adams")
	setZahl (t, "Bestnr", 333)
	AppTupel (R, t)

	setText (t, "Titel", "So Long, And Thanks For All The Fish")
	setText (t, "Autor", "D. Adams")
	setZahl (t, "Bestnr", 444)
	AppTupel (R, t)

	anz := AnzTupel (R)
	Print ("Anzahl der Tupel : ", anz)
END

Ausgabe:

  
Struktur der neuen Relation : 

TITEL           ""
AUTOR           ""
BESTNR                   0

Anzahl der Tupel : 4




[Inhalt] [Zurück] [______] [Thema] [Index]

Beispiel zu Relation, NewRelation, AppTupel


  
# Beispielprogramm zu den Funktionen Relation, NewRelation, AppTupel

AZUR () HREF="explizit/.html"> 
	R := Relation ("B\ucher")
	Neu := NewRelation ("B\uchertitel", "Titel#50s")
	tneu := Tupel (Struktur(Neu));
	Print ("Struktur des neuen Tupels : ", tneu)
	anz := AnzTupel(R)
	Print ("Anzahl der Tupel : ", anz)
Print () HREF="explizit/.html"> 
	FORALL tp IN R
		text := getText (tp, "Titel")
		setText (tneu, "Titel", text)
		AppTupel (Neu, tneu)
		Print (getText (tneu, "Titel"))
	ENDWHILE
END

Ausgabe:

  
Struktur des neuen Tupels : 

TITEL           ""

Anzahl der Tupel : 4

The Hitchhiker's Guide To The Galaxy
The Restaurant At The End Of The Universe
Life, The Universe and Everything
So Long, And Thanks For All The Fish



toposoft GmbH 20. Juni 2014