procedure CreateMemTable(nameoftable :string; Defns: array of Tfield);

var i: integer; TableToCreate: TDBISAMTable;
begin
 ClearMemTable;
 TableToCreate:=TDBISAMTable.Create(Application);
 try
   with TableToCreate do
     begin
       DatabaseName:='Memory';
       TableName:= nameoftable;
       Active := False;
       Exclusive:=True;


       //why does this not work?    

       for i := Low(Defns) to High(Defns) do   
         begin
           FieldDefs.AddFieldDef.Name := Defns[i].FieldName;
           FieldDefs.AddFieldDef.datatype := Defns[i].datatype;
           FieldDefs.AddFieldDef.size := Defns[i].size;
           FieldDefs.AddFieldDef.Required := False;
         end;}

      // but this does

       for i := Low(Defns) to High(Defns) do  
         FieldDefs.Add(Defns[i].FieldName,Defns[i].datatype,Defns
[i].size,False);

       if not Exists then
         CreateTable;
     end
 finally
   TableToCreate.Free;
 end;
end;


Thanks

Mike

FieldDefs.AddFieldDef is creating a new field definition each time you
call the method. Try:

AFieldDef := FieldDefs.AddFieldDef;
AFieldDef.Name := AName;
AFieldDef.DataType := AType;

etc.

Sean

> procedure CreateMemTable(nameoftable :string; Defns: array of Tfield);
>
> var i: integer; TableToCreate: TDBISAMTable;
> begin
>   ClearMemTable;
>   TableToCreate:=TDBISAMTable.Create(Application);
>   try
>     with TableToCreate do
>       begin
>         DatabaseName:='Memory';
>         TableName:= nameoftable;
>         Active := False;
>         Exclusive:=True;
>
>
>         //why does this not work?    
>
>         for i := Low(Defns) to High(Defns) do   
>           begin
>             FieldDefs.AddFieldDef.Name := Defns[i].FieldName;
>             FieldDefs.AddFieldDef.datatype := Defns[i].datatype;
>             FieldDefs.AddFieldDef.size := Defns[i].size;
>             FieldDefs.AddFieldDef.Required := False;
>           end;}
>
>        // but this does
>
>         for i := Low(Defns) to High(Defns) do  
>           FieldDefs.Add(Defns[i].FieldName,Defns[i].datatype,Defns
> [i].size,False);
>
>         if not Exists then
>           CreateTable;
>       end
>   finally
>     TableToCreate.Free;
>   end;
> end;
>
>
> Thanks
>
> Mike
>