procedure WriteLn(s :string);

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.