Allow customization of FieldDefs!

[Google Code Exporter]

Reproduce bug:
var
  AFieldDef: TFieldDef;
  //DataSet: TSQLiteDataset;
begin
...
  AFieldDef := DataSet.FieldDefs.AddFieldDef;
  AFieldDef.FieldNo := 0;
  AFieldDef.Name := 'CMD_';
  AFieldDef.DataType := ftWideString;
  AFieldDef.Size := 255;
  DataSet.Open;
//DataSet.FieldByName('CMD_').Size = 50; !!!
end;


Please use this code to allow customization of FieldDefs:

function TSQLiteDataset.DoInitFields(AStmt: TSQLitePreparedStatement): 
TSQLiteUniTable;
... 
    //define DS
//    FieldDefs.Clear; //remove
    for i := 0 to Result.FieldCount - 1 do
      if FieldDefs.IndexOf(Result.Fields[i].Name) < 0 then
...

Original issue reported on code.google.com by [e-mail] on 26 Jun 2013 at 5:33

[Google Code Exporter]

This issue was closed by revision r167.

Original comment by [e-mail] on 27 Jun 2013 at 9:40

• Changed state: Fixed