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