框架保存格式异常

Delphi10/开发档案/Dp10RepoV1/public10/design/U_WindowFormdesign.pas

@@ -386,7 +386,6 @@ begin
       view.optionsCustomize.columnfiltering := true;
       mdesignCode := fDllFileName +'|'+mForm.name+ '|' + intTostr(fFormId) + '|' + grid.name;
       grid.EndUpdate ;
-
       CreateCxGridColumn( view,ADOQueryTmp,PWideChar(mdesignCode));
 
       //continue;
@@ -925,38 +924,40 @@ begin
     result:=client1;
 end;
 
-/////////////////////////////////////////////
+
+/// //////////////////////////////////////////
 procedure TWindowFormDeSign.setGridClick(Sender: TObject);
 var
-  i:integer;
+  i: integer;
-  view:TcxGridDBTableView;
+  view: TcxGridDBTableView;
 begin
-  view:=nil;
+  view := nil;
 
-  with GetParentForm(TToolButton( Sender )) do
+  with GetParentForm(TToolButton(Sender)) do
   begin
-    for i:=0 to ComponentCount-1 do
+    for i := 0 to ComponentCount - 1 do
     begin
       if Components[i] is TcxGrid then
       begin
         if TcxGrid(Components[i]).IsFocused then
         begin
-           view:= TcxGridDBTableView(TcxGrid(Components[i]).Views[0]);
+          view := TcxGridDBTableView(TcxGrid(Components[i]).Views[0]);
         end;
-     end;
+      end;
     end;
   end;
   //
-   if view<>nil then
+  if view <> nil then
-   begin
+  begin
-     OpenGridDesignWin(view);
+    OpenGridDesignWin(view);
-   end
+  end
-   else
+  else
-   begin
+  begin
-     showMessage('请先选择要设计的表格!');
+    showMessage('请先选择要设计的表格!');
-   end;
+  end;
 end;
 
+
 //////////////////////////////////////////////////////////////////
 /// ÉèÖô°¿Ú°´Å¥
 procedure TWindowFormDeSign.initUserFormButtons(toolBar1:TToolBar;toolBar2:TToolBar=nil);