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

IDE: cleanup code in DialogProgs.

Browse Source 
git-svn-id: trunk@41573 -
This commit is contained in:
juha 2013-06-07 11:21:17 +00:00
parent f597e810ce
commit 0d20e5d2a5
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/dialogprocs.pas
View File

@ -128,10 +128,8 @@ function RenameFileWithErrorDialogs(const SrcFilename, DestFilename: string;
var var
DlgButtons: TMsgDlgButtons; DlgButtons: TMsgDlgButtons;
begin begin
if SrcFilename=DestFilename then begin if SrcFilename=DestFilename then
Result:=mrOk; exit(mrOk);
exit;
end;
repeat repeat
if FileProcs.RenameFileUTF8(SrcFilename,DestFilename) then begin if FileProcs.RenameFileUTF8(SrcFilename,DestFilename) then begin
InvalidateFileStateCache(SrcFilename); InvalidateFileStateCache(SrcFilename);