procedure AppendRecord(dbf, blank :integer); — DBF Script

AppendRecord appends a record to the end of a file. It uses information from internal memory.
If the second parameter 'blank' is equal to 1 then AppendRecord appends an empty record.


var
  dbf :integer;
begin
  dbf := OpenBase( 'filename.dbf' );
  if dbf <> 0 then
  begin
      ClearRecord(dbf);
      SetValue(dbf, 0, 'some string', 123.45);
      AppendRecord(dbf, 0);
      AppendRecord(dbf, 1);
    end;
    CloseBase(dbf);
  end;
end.