;Laden eines beliebigen Datensatzes und
;Bereitstellung der enthaltenen Objektnamen in einer Gruppenvariable
;mit der Information über den Datentyp
tmp:_DateiPfad=DlgDateiName("","dat","Bitte eine Quelldatei auswählen...",0)
tmp:_FileName=FsSplitPath(tmp:_DateiPfad,2)
tmp:_DateiID=FileOpenDSF(tmp:_DateiPfad,0)
tmp:_ObjektAnzahl=FileObjNum?(tmp:_DateiID)
tmp:_ObjektPointer=1
Namen_<tmp:_FileName>=GrNeu()
Solange tmp:_ObjektPointer<=tmp:_ObjektAnzahl
	tmp:_ObjektTyp=FileObjType?(tmp:_DateiID,tmp:_ObjektPointer)
	tmp:_ObjektName=FileObjName?(tmp:_DateiID,tmp:_ObjektPointer)
	Namen_<tmp:_FileName>:<tmp:_ObjektName>=tmp:_ObjektTyp
	tmp:_ObjektPointer=tmp:_ObjektPointer+1
Ende
tmp:_Fehler=FileClose(tmp:_DateiID)
Entferne tmp