NewDatabase allocates memory for a new table.
It returns non-zero value if success.
The allocated memory will be released after calling CreateDatabase or CreateAndOpenDatabase.
var
ok :integer;
begin
if NewDatabase then
begin
AddField('Name', 'C', 20);
AddField('Birth', 'D', 0);
AddField('Sex', 'L', 0);
AddField('Salary', 'N', 10 + 2*256);
AddField('Notes', 'M', 0);
end;
ok := CreateDatabase('clients.dbf', 5, 0);
writeln( inttostr( ok ) );
end.