|
@@ -492,7 +492,7 @@ begin
|
|
end;
|
|
end;
|
|
ftUnknown : DatabaseError('Unknown record type: '+FN);
|
|
ftUnknown : DatabaseError('Unknown record type: '+FN);
|
|
end; // Case
|
|
end; // Case
|
|
- tfielddef.create(fielddefs,FieldDefs.MakeNameUnique(FN),ft1,size1,false,i+1);
|
|
|
|
|
|
+ Fielddefs.Add(FieldDefs.MakeNameUnique(FN),ft1,size1,false,i+1);
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|