IBX->IBDAC some migration problem

[Fabrice]

Hello,

I have migrated my project from IBX to Ibdac in Delphi 2010 but I have had some strange problem with some .DFM.
Migration wizard seems to had a lot of space in some cases.

If .dfm contain :

Code: Select all

 object DS_Liste: TDataSource
    DataSet = Q_Liste
    Left = 112
    Top = 281
  end
  object Q_Liste: TIBQuery
    Database = bddata.DatabaseLocalDatabase
    Transaction = bddata.IBTransaction
    AfterClose = Q_ListeAfterClose
    AfterOpen = Q_ListeAfterOpen
    BeforeOpen = Q_ListeBeforeOpen
    DataSource = bddata.Ds_User
    SQL.Strings = (
      'select q1.*'
      'from customer q2'
      'where c_code is null'
      'order by c_name')
    Left = 64
    Top = 282
  end
 

After migration I get something like :

Code: Select all

  object DS_Liste: TDataSource
    DataSet = Q_Liste
    Left = 112
    Top = 281
  end
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          object Q_Liste: TIBCQuery
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          Connection = bddata.DatabaseLocalDatabase

Translation :

Code: Select all

 object DS_Liste: TDataSource
    DataSet = Q_Liste
    Left = 112
    Top = 281
  end
[followed by 4218 spaces]
object Q_Liste: TIBCQuery
[followed by 4218 spaces]
Connection = bddata.DatabaseLocalDatabase
[followed by 4218 spaces]
Transaction = bddata.IBTransaction
[followed by 4218 spaces]
AfterClose = Q_ListeAfterClose
[followed by 4218 spaces]
...

So why wizard add 4218 spaces between each line of my DFM ?
And after Delphi say "line too long" when I try to open .dfm.
It's seems to occurs in big .dfm more than 700 ko.

[AndreyZ]

Please send one or several of your dfm files to andreyz*devart*com for investigation.

[Fabrice]

Hello,

Sample sent by email.

[Dimon]

Thank you for information. We have reproduced this problem and fixed it. This fix will be included in the next IBDAC build.