procedure Write(s :string);

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

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