Jump to content
Sign in to follow this  
Stéphane Wierzbicki

FDMemtable bug ?

Recommended Posts

Hello,

 

Can someone test this ? 

- Copy the object bellow and paste it on a VCL form

- Left click on the FDMemtable1 object and choose "Fields editor..."

- Left click and select "Add all fields"

- Open the FieldDefs dialog

 

Act: empty. all fielddefs has been deleted

Expt: fielddefs list should not be deleted

 

Ps: I'm using Delphi RIO + not even alpha IDEFix pack

 

object FDMemTable1: TFDMemTable
  FieldDefs = <
    item
      Name = 'RateDate'
      DataType = ftDate
    end
    item
      Name = 'CurrFrom'
      DataType = ftString
      Size = 20
    end
    item
      Name = 'CurrTo'
      DataType = ftString
      Size = 20
    end
    item
      Name = 'Value'
      DataType = ftFloat
      Precision = 6
    end
    item
      Name = 'Caption'
      DataType = ftString
      Size = 20
    end
    item
      Name = 'Kind'
      DataType = ftString
      Size = 20
    end
    item
      Name = 'Ratio'
      DataType = ftFloat
    end
    item
      Name = 'Update'
      DataType = ftString
      Size = 20
    end>
  IndexDefs = <>
  FetchOptions.AssignedValues = [evMode]
  FetchOptions.Mode = fmAll
  ResourceOptions.AssignedValues = [rvSilentMode]
  ResourceOptions.SilentMode = True
  UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
  UpdateOptions.CheckRequired = False
  UpdateOptions.AutoCommitUpdates = True
  StoreDefs = True
  Left = 136
  Top = 144
  object FDMemTable1Caption: TStringField
    FieldName = 'Caption'
  end
  object FDMemTable1CurrFrom: TStringField
    FieldName = 'CurrFrom'
  end
  object FDMemTable1CurrTo: TStringField
    FieldName = 'CurrTo'
  end
  object FDMemTable1Value: TCurrencyField
    FieldName = 'Value'
  end
  object FDMemTable1Ratio: TFloatField
    FieldName = 'Ratio'
  end
  object FDMemTable1Update: TStringField
    FieldName = 'Update'
  end
  object FDMemTable1Kind: TStringField
    FieldName = 'Kind'
  end
  object FDMemTable1RateDate: TDateField
    FieldName = 'RateDate'
  end
end


 

Edited by Stéphane Wierzbicki

Share this post


Link to post

I can confirm this, but 

Left click on the FDMemtable1 object and choose "Fields editor..."  

again and you will see your fielddefs again.

The fielddefs were in the formfile the whole time, but did not show up in the object inspector.

Share this post


Link to post

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×