procedure WriteLn(s :string); — DBF Script

Function WriteLn allows you to print some information to a LogWindow in the bottom part of the program. It does insert symbols of carrier return and line feed in the end of text.


var
  dbf :integer;
begin
  dbf := OpenBase( 'filename.dbf' );
  if dbf <> 0 then
  begin
    WriteLn( inttostr( RecCount(dbf) ) );
    WriteLn( inttostr( FieldCount(dbf) ) );
    CloseBase(dbf);
  end;
end.