Go;
/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
Go;
  wort="Emma*Anton*Carsten*Dirk*Berta";
  ret=Createobject(neuesarray,"Array");  
    /*ret ist TRUE, falls Objekt erstellt werden konnte
      wenn nicht, ist ret FALSE*/

//FromString
//~~~~~~~~~~~~~~~
  ret=neuesarray.FromString(wort,"*");
    //ret gibt die Anzahl der eingefügten Elemente wieder
    //alle vorher enthaltenen Elemente werden entfernt!!!
  print("Es wurden "+int(ret)+" Elemente eingelesen.
");

//Add
//~~~~~~~~~~~~~~~  
  neuesarray.Add("Ferdinand");
  neuesarray.Add("Anton");
  neuesarray.Add("Gustav");
  neuesarray.Add("Dirk");
  neuesarray.Add("Heike");  
  /*Elemente werden im Array hinten angefügt*/

//RemoveDup + Count
//~~~~~~~~~~~~~~~
  vorsortieren=neuesarray.Count();
  ret=neuesarray.RemoveDup();
    //in ret wird die Anzahl der doppelten Elemente abgelegt
  nachsortieren=neuesarray.Count();
  If(Compare(ret,0,GT));
    print(ret+" Elemente waren doppelt.
");
  Endif;
  print("Vor dem Entfernen von Duplikaten waren ");
  print(int(vorsortieren)+" Elemente im Array.
");
  print("Nachher nur noch "+int(nachsortieren)+" Elemente.
");

//Exists
//~~~~~~~~~~~~~~~
  ret=neuesarray.Exists("Micha"); 
    //ret ist TRUE, wenn der Wert im Array enthalten ist
  aussage=iif(ret,"","nicht");
  print("Der Name Dirk ist im Array "+aussage+" enthalten.
");

//At
//~~~~~~~~~~~~~~~
  i=4;
  ret=neuesarray.At(i);
    //in ret wird das fünfte Element übernommen
  print("Das "+int(i+1)+". Element ist '"+ret+"'.
"); 

//AsString
//~~~~~~~~~~~~~~~
  namen=neuesarray.AsString(",");
  print(namen);
End;
End;

Go;
/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
Go;
  ret=CreateObject(lay,"Layers");
  print(lay.Count()+" Ebenen sind enthalten.<br>");
  ret=lay.first();
  while(lay.next());  
    //eine Schleife, die alle Layer im Projekt behandelt
    print("<br>- "+lay.item());      
    layer=lay.GetItem();
      //erstellt ein "Layer" - Objekt mit dem Namen layer
    print(" - "+layer.Description());
    If(layer.name()=="Gemeinden");
      If(layer.MaxScale()=="-1");
        print("<br>Der Layer ist auf keinen Maßstab beschränkt.<br>");
      EndIf;
      felder=layer.GetFields();
        //erstellt ein "Fields" - Objekt mit dem Namen felder
      print("Die Ebene '"+felder.name()+"' enthält ");
      print(felder.count()+" Felder in der Attributtabelle.<br>");
      If(felder.count()!=0);
        print("Feldnamen:<br>");
        ret=felder.first();
        while(felder.next());  
          //eine Schleife, die alle Felder der Attributtabelle der Ebene behandelt 
          print(" -"+felder.item()+"<br>");
        wend;
      EndIf;
    EndIf;
  wend;
End;
End;

Go;
/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/

End;

Go;
/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/

End;