>type
>    ChangeRec = packed record
>    szName: DBINAME;
>    iType: word;
>    iSubType: word;
>    iLength: word;
>    iPrecision: byte;
>    file://end;

>2. I'm attempting to use the #10 example from the link below to modify an
>existing database structure. I want the newly "Added" field to be the 1st
>field in the database. The example adds the new field to end of the table.
>How do I accomplish adding the new field as the 1st field using the #10
>example? http://www.borland.com/devsupport/bde/bdeapiex/index.html

> 1. I added the following procedure to the Public section.
procedure
> AddField(Table: TTable; NewField: ChangeRec); Where should I
declare the
> code below? ChangeRec is giving me an "Undeclared Identifier"
error when I
> compile it in the IDE? I added BDE to my uses clause.

> type
>     ChangeRec = packed record
>     szName: DBINAME;
>     iType: word;
>     iSubType: word;
>     iLength: word;
>     iPrecision: byte;
>     file://end;

> Brian Bushay TeamB <BBus...@Nmpls.com> wrote in message
> news:aq0batks4rsfs8rfcdh65gl9766f1li5nl@4ax.com...
> > If you look at the example there is a For loop that copies
each of the
> existing
> > fields and assigns it  a number.  After the FOR loop the new
field is
> added and
> > the number is set to the next number.  You need to reverse
this so that
> the new
> > field gets assigned the first number.

> Thanks for the help, I got everything working EXCEPT the field
is always
> added as the last. I'm not sure I understand how to "reverse"
the code to
> add the "new" field as the first.  My attempts thus far have
not worked. I
> know this is probably easy but I haven't been able to get it.
How do I
> reverse it?

>  for B := 1 to Table.FieldCount do begin
>     pFlds^.iFldNum := B;
>     Inc(pFlds, 1);
>   end;
>   try
>     StrCopy(pFlds^.szName, NewField.szName);
>     pFlds^.iFldType := NewField.iType;
>     pFlds^.iSubType := NewField.iSubType;
>     pFlds^.iUnits1  := NewField.iLength;
>     pFlds^.iUnits2  := NewField.iPrecision;
>     pFlds^.iFldNum  := Table.FieldCount + 1;
>   finally
>     Dec(pFlds, Table.FieldCount);
>   end;

> Thanks,
> Ernie B.

> First, thank you. I appreciate the help, the above code gives
an "Invalid
> Field Descriptor" error. I tried everything I can think of to
modify the "
> Newfield"  iFldNum position. If "B" starts with anything other
than "1" it
> generates the above error.

> From the BDE Help :
> "pFLDDesc pfldDesc Optional; used if the record structure is
changing.
> Specifies an array of physical field descriptors for the new
record
> structure. ifldNum in each pfldDesc must be 0 if the field is
added.
> Otherwise, it must contain the field position (1 to n) in the
old record
> structures. If a field is dropped, its descriptor is simply
left out of the
> new record structure. Additionally, any changes to dependent
objects are
> made automatically (that is, all single field indexes, validity
checks, and
> auxiliary passwords are dropped)."

> Not sure if this is the problem, after reading it I'm not sure
if I
> understand it :)

> Thanks again,
> Ernie B.