Merge branch '3.1.5' of http://192.168.1.12:3000/maixinrong/measure into 3.1.5

Frames/ProjectManagerFme.pas

@@ -827,7 +827,7 @@ procedure TProjectManagerFrame.actnRenameExecute(Sender: TObject);
   var
     sURL: string;
     iRename: Integer;
-    vArr: array of string;
+    vArr: array [0..0] of string;
   begin
     Result := True;
     if not G_IsCloud then Exit;
@@ -854,7 +854,7 @@ begin
   begin
     if InputNewProjectName(sName, 'ÖØÃüÃû', stnNode.Parent, stnNode.ID) then
     begin
-      if CanRename(stnNode.Rec, sName) then
+      if (sName <> stnNode.Rec.ValueByName('Name').AsString) and CanRename(stnNode.Rec, sName) then
       begin
         stnNode.Rec.ValueByName('Name').AsString := sName;
         ProjectManager.Save;