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

Attribute setzen





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

Beispiel


 
# Beispielprogramm zu den Funktionen setKoord, setGueltVon, setGueltBis,
# setMessgenau, setFToleranz, setNWGrenze, setKommentar, setHoehe, setXEinheit

AZUR () HREF="explizit/.html"> 
t := HREF="explizit/().html"> ()
	setText (t, "Ort", "Aachen")
	setText (t, "Parameter", "Sonnenschein")
	setText (t, "DefArt", "K")
	zr := OpenZR (t)
	Print (Attribute(zr))
	setKoord (zr, GeoPoint (2505000, 5525000))
	setGueltVon (zr, @"11.11.1977")
	setGueltBis (zr, @"11.11.1988")
	setMessgenau (zr, 0.1)
	setFToleranz (zr, 0.01)
	setNWGrenze (zr, 0.125)
	setKommentar (zr, "Ein Beispiel")
	setHoehe (zr, 150.0)
	setXEinheit (zr, "cm")
	zrneu := GetZR ("Aachen", "Sonnenschein", "", "K")
	SetLebenslauf (zrneu, "Frei erfunden")
Print () HREF="explizit/.html"> 
	Print (zr)
	Print (Attribute(zr))
	Print ("Lebenslauf:      ", Lebenslauf (zr))
END

Ausgabe:

 
PARAMETER       "Sonnenschein"
ORT             "Aachen"
DEFART          "K"
AUSSAGE         ""
XDISTANZ        ""
XFAKTOR             0
HERKUNFT        ""
REIHENART       ""
X               2505000
Y               5525000
GUELTVON        "19771111073000"
GUELTBIS        "19881111073000"
EINHEIT         ""
MESSGENAU         0.1000
FTOLERANZ         0.0100
NWGRENZE          0.1250
RELSTART        ""
WERTEDATEI      "aachen.sk0"
KOMMENTAR       "Ein Beispiel"
HOEHE               150
YTYP            ""
XEINHEIT        "cm"


(Aachen,Sonnenschein,,,0,,)


PARAMETER       "Sonnenschein"
ORT             "Aachen"
DEFART          "K"
AUSSAGE         ""
XDISTANZ        ""
XFAKTOR             0
HERKUNFT        ""
REIHENART       ""
X               2505000
Y               5525000
GUELTVON        "19771111073000"
GUELTBIS        "19881111073000"
EINHEIT         ""
MESSGENAU         0.1000
FTOLERANZ         0.0100
NWGRENZE          0.1250
RELSTART        ""
WERTEDATEI      "aachen.sk0"
KOMMENTAR       "Ein Beispiel"
HOEHE               150
YTYP            ""
XEINHEIT        "cm"

Lebenslauf:      Frei erfunden



toposoft GmbH 11. November 2013