paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 10:00:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch by C Western for #10883

Browse Source 
git-svn-id: trunk@10385 -
This commit is contained in:
florian 2008-02-24 20:00:08 +00:00
parent 65e9ad8591
commit c424f27291
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,9 +27,11 @@
// Start with checking the file in the current directory
Result:=Name;
temp:=SetDirSeparators(DirList);
repeat
If (Result<>'') and FileExists(Result) Then
while True do begin
If (Result <> '') and FileExists(Result) Then
exit;
If Temp = '' then
Break; // No more directories to search - fail
I:=pos(PathSeparator,Temp);
If I<>0 then
begin
@ -41,9 +43,9 @@
Result:=Temp;
Temp:='';
end;
if Result<>'' then
If Result<>'' then
Result:=IncludeTrailingPathDelimiter(Result)+name;
until temp='';
end;
result:='';
end;