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

implemented search, fixed double loading breakpoints

Browse Source 
git-svn-id: trunk@3421 -
This commit is contained in:
mattias 2002-10-01 15:45:51 +00:00
parent 428e9ffa91
commit bd1b61d5e1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/ideprocs.pp
View File

@ -528,7 +528,8 @@ begin
repeat
// check if special file
if (FileInfo.Name='.') or (FileInfo.Name='..') then continue;
if CompareFileExt(Directory,Ext,false)=0 then begin
// check extension
if CompareFileExt(FileInfo.Name,Ext,false)=0 then begin
Result:=AppendPathDelim(Directory)+FileInfo.Name;
break;
end;