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.
|