Pascal Städte mit dazugehöriger Region importieren

[Seb]

Hallo zusammen,

zuerst einmal ein dickes Lob für Imabas und den Support hier im Forum.
Ich bin gerade dabei einen Bilderdatenbank für NIKE (nicht die Marke) zu erstellen. --> Link

Ich benutze die aktuelle (8.0.1) Imabas Version und bin sehr zufrienden damit und gedenke auch die Lifetime Lizenzen zu kaufen.

Nun aber zum eigentlichen Thema:

Ich habe eine grosse Liste von allen Städten / Ortschaften der Schweiz, welche ich importieren möchte. (Zuweisung der Bilder ist sehr gewünscht).
Nun habe ich leider keine Kenntnisse von Pascal, aber JAVA kann ich nicht schlecht. Ich habe mir nun erlaubt das Script zum importieren von Themen abzuändern.

Ich weiss nicht ob das einlesen funktioniert, leider konnte ich es noch nicht testen. Die Darstellung wäre "Thun,Bern" (Stadt - Kanton).

function PerformAction(ObjectKey: String): Boolean;
var
   lines: TStringList; region: TIRegion; city: TIcity;
   fName, s: String; l: String; r: String; i: Integer; t: Integer;
begin
   Result := True;
   //-- Textdatei öffnen --//
   if ( not System_OpenFileDialog(fName, 'Textdateien|*.txt') ) then
      Exit;

      lines := TStringList.Create;
      try
         //-- Textdatei einlesen --//
         lines.LoadFromFile(fName);
         for i := 0 to lines.Count-1 do begin
            //-- Leerzeilen vermeiden --//
            s := Trim(lines[i]);
            if ( s <> '' ) then begin
            
               //-- Trenne Stadt und Region   --//
               t := Pos(',',s);
               l := LeftString(s,t);
               r := RightString(s,t);
               
               //-- Region laden --//
               region := TIRegion.Create;
               try
                  if ( not region.Load(ObjectKey) ) then
                     Exit;
                     //-- Stadt anlegen --//
                     city := TICity.Create;
               
                     try
                        with city do begin
                           Caption := s;
                           Region := region;
                           Append;
                        end;
                     finally
                        city.Free;
                     end;
               finally
                  region.Free;
               end;
            end;
         end;
      finally
         lines.Free;
      end;
   end;

Wie im anderen Codebeispiel kommt die Fehlermeldung, dass die Region Read-Only ist.

Wie ist dazu der Stand? Liegt das an der Test Version, oder falsche Überlegung meinerseits?

Besten Dank und Gruss Sebastian

[Kai]

Hallo,
das ist leider eine Restriktion im PascalScript. Besser geht das mit dem Imabas Java SDK....