Is TMS Data Modeler Library updated?

My developpment programming environment
  • Delphi XE3 PRO update 2
  • TMS DATA MODELER 201010
  • TMS Data Modeler Library (version 2010)
What happens?
 
I've migrated to DataModeler version 2.0 and use the TMS Data Modeler Library.
When i try to compile my App  i have an Exception when AureliusExportOptions object  is parsed...
 
My question:
 
How do i can rid of it?
 
More information
Portion of the DGP file that mays cause problem
 
  AureliusExportOptions =
    '<Mappings CreateDescriptions="true">'#13#10'  <ProjectFile/>'#13#10'  <Outpu' +
    'tDir>C:\Users\ASUS_DIDIER\Documents\RAD Studio\Projets\XE3\AppBa' +
    'se\UNITS\MODULES</OutputDir>'#13#10'  <MainUnitName>AppDataModele</Mai' +
    'nUnitName>'#13#10'  <DictionaryName>Dic</DictionaryName>'#13#10'  <Dictionar' +
    'yUnitName/>'#13#10'  <TableNaming Source="caption" Format="T%s"/>'#13#10'  <' +
    'FieldNaming Source="caption" Format="%s"/>'#13#10'  <AssociationNaming' +
    ' Source="ChildFieldCaption" Format="%s"/>'#13#10'  <ManyValuedNaming S' +
    'ource="ChildTableCaption" Format="%sList"/>'#13#10'  <Tables/>'#13#10'  <Ass' +
    'ociations/>'#13#10'</Mappings>'#13#10

TMS Data Modeler library is deprecated and is not being updated anymore.

Poor of me....
 

Ok ok.  :)

Please contact me in private with more info (dgp and your DM library code) maybe we can do a quick workaround.

Where is your private mail adress?

Just send to regular support e-mail

I just find a 'private' way to get aroud by writing this

 
 procedure DeleteAureliusExportOptionsTagInFile(aDGPFile:string);
    var
    FileContent:TStringList;
    S:string;
    I:Integer;
    begin
    if not FileExists(aDGPFile) then    Exit;
      FileContent:=TStringList.Create;
      try
         FileContent.LoadFromFile(aDGPFile);
        I:=FileContent.IndexOf('  AureliusExportOptions = ');
        if I<>-1 then
         begin
           S:=FileContent;
             while (I<FileContent.Count) AND (Pos('</Mappings>',S)=0) do
             begin
               FileContent.Delete(I);
               S:=FileContent;
             end;
           if Pos('</Mappings>',S)<>0 then
              FileContent.Delete(I);
            FileContent.SaveToFile(fn);
           end;
      finally
        FileContent.Free;
      end;
    end;
in above code, yould read
S:=FileContent(I)