procedure AddField(name :string; ft :string; len :integer);

AddField adds a field to the allocated memory. It accepts parameters: name, type and length. If this is Numeric field with a fractional part then length is equal to LEN_OF_FIELD + LEN_OF_FRACTIONAL * 256

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; CreateDatabase('clients.dbf', 5, 0); end.