Сега обърнах внимание, че се оплакваш от FieldDefs.Add, а и ми се наложи да добавя едно попе. Може би това е един ефективен начин:

xTable := tTable.Create( Application.MainForm);

xTable.DataBaseName := '';

xTable.TableType := ttParadox;

xTable.TableName := xName;  // пълния път до db файла

xTable.FieldDefs.Update; // чете съществуващите филдове

// това е с exception : if xTable.FieldDefs.Find( 'LStateGSM')=nil then begin

{ това не е с exception :Щ if xTable.FieldDefs.IndexOf( 'LStateGSM')>=0 then begin

  xTable.FieldDefs.Add(  'LStateGSM', ftInteger, 0, false);  

  xTable.CreateTable;

end;

Съдържаниет е скрито
Влезте за да го видите

Редактирано от NikB на 03.11.07 13:22.