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

ideutils: fixed DeleteFileInteractive

Browse Source
This commit is contained in:
mattias 2025-05-26 13:56:50 +02:00
parent e9d7d8bd40
commit fc4d4103f2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/packages/ideutils/dialogprocs.pas
View File

@ -615,7 +615,7 @@ begin
repeat repeat
CurFilename:=Info.Name; CurFilename:=Info.Name;
if (CurFilename='') or (CurFilename='.') or (CurFilename='..') then continue; if (CurFilename='') or (CurFilename='.') or (CurFilename='..') then continue;
if SameText(Filename,ShortFilename) then begin if SameText(CurFilename,ShortFilename) then begin
CurFilename:=Dir+CurFilename; CurFilename:=Dir+CurFilename;
Found:=true; Found:=true;
break; break;