paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 12:49:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* FileSearch needs to check first the file in the

Browse Source 
current dir

git-svn-id: trunk@10128 -
This commit is contained in:
peter 2008-02-01 07:03:30 +00:00
parent 859deca93f
commit 3ffcb2244e
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/objpas/sysutils/sysutils.inc
View File

@ -24,9 +24,12 @@
Temp : String;
begin
Result:='';
temp:=SetDirSeparators(DirList);
// Start with checking the file in the current directory
Result:=Name;
temp:=SetDirSeparators(DirList);
repeat
If (Result<>'') and FileExists(Result) Then
exit;
I:=pos(PathSeparator,Temp);
If I<>0 then
begin
@ -38,14 +41,10 @@
Result:=Temp;
Temp:='';
end;
if Result<>'' then
begin
Result:=IncludeTrailingPathDelimiter(Result)+name;
If FileExists(Result) Then
exit;
end;
if Result<>'' then
Result:=IncludeTrailingPathDelimiter(Result)+name;
until temp='';
result:='';
result:='';
end;
{$ifndef OS_FILEISREADONLY}