Question

在一个大项目的很多地方，SQL语句被添加为

table.SQL.Add(' '
      + ' select tableA.Field1, '
      + ' tableA.Field2 Field2, '      
      + ' tableA.Field3, '
      + ' tableA.Field1 '
      + ' from tableA_!Version tableA left outer join tableB_00 tableB '
      + ' on tableB.Field1ID = :ID '
      + ' and          tableB.Nr = :Nr '
      + ' and tableA.Field12 = tableB.InhaltNummer '
      + ' where tableA.Field233 = 1 '
      + ' order by tableA.Field1 '
);

我想选择这段代码并将其更改为

with     table.SQL do
 begin    
          Add('select tableA.Field1,');
          Add('tableA.Field2 Field2,');      
          Add('tableA.Field3,');
          Add('tableA.Field1');
          Add('from tableA_!Version tableA left outer join tableB_00 tableB');
          Add('on tableB.Field1ID = :ID');
          Add('and          tableB.Nr = :Nr');
          Add('and tableA.Field12 = tableB.InhaltNummer');
          Add('where tableA.Field233 = 1');
          Add('order by tableA.Field1');
end;

因为稍后使用直接行号（例如

）更改SQL语句

table.SQL.Lines[5] := 'something'

我正在查看Delphi的重构菜单，GExpert或CNPack功能，但没有找到有用的东西。是否有任何功能可以帮助我？

Answer 1

Castalia for Delphi（完全披露：我是创作者）有两个工具可以做到这一点。在这里阅读它们：http://delphiblog.twodesk.com/working-with-code-in-your-code-multipaste-and-smart-trim

Delphi格式代码连接字符串作为TStringList添加

1 个答案: