mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 22:29:57 +02:00
13 lines
412 B
ObjectPascal
13 lines
412 B
ObjectPascal
uses
|
|
dos;
|
|
begin
|
|
writeln;
|
|
writeln(fsearch('c:\command.com', ''));
|
|
{ here you get the full path in BP7, but nothing in FPC }
|
|
writeln(fsearch('c:\command.com', 'c:\a'));
|
|
{ I really would not consider this as a bug !! }
|
|
{ this use of fsearch is not document in BP PM }
|
|
if fsearch('c:\command.com', '')<>fsearch('c:\command.com', 'c:\a') then
|
|
Writeln('fsearch result is not BP compatible');
|
|
end.
|