# 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
Struktur der neuen Relation : TITEL "" AUTOR "" BESTNR 0 Anzahl der Tupel : 4
# 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
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