mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-28 11:21:42 +01:00
10 lines
179 B
ObjectPascal
10 lines
179 B
ObjectPascal
Program Example46;
|
|
|
|
{ Program to demonstrate the FSearch function. }
|
|
|
|
Uses BaseUnix, Unix, Strings;
|
|
|
|
begin
|
|
Writeln ('ls is in : ',FSearch ('ls',strpas(fpGetenv('PATH'))));
|
|
end.
|