tw0902.pp 411 B

123456789101112
  1. uses
  2. dos;
  3. begin
  4. writeln;
  5. writeln(fsearch('c:\command.com', ''));
  6. { here you get the full path in BP7, but nothing in FPC }
  7. writeln(fsearch('c:\command.com', 'c:\a'));
  8. { I really would not consider this as a bug !! }
  9. { this use of fsearch is not document in BP PM }
  10. if fsearch('c:\command.com', '')<>fsearch('c:\command.com', 'c:\a') then
  11. Writeln('fsearch result is not BP compatible');
  12. end.