paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-05 06:20:55 +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
DlgButtons: TMsgDlgButtons;
begin
if SrcFilename=DestFilename then begin
Result:=mrOk;
exit;
end;
if SrcFilename=DestFilename then
exit(mrOk);
repeat
if FileProcs.RenameFileUTF8(SrcFilename,DestFilename) then begin
InvalidateFileStateCache(SrcFilename);