(Resolvido) Refatoração Delphi XE5

[DanielR]

Boa tarde a todos.

já agradeço a atenção de todos. Obrigado.

Pessoal, tenho um projeto onde preciso trocar uma classe em suas chamadas, o detalhe é que são diversos arquivos (cerca de 5.000 arquivos) e gostaria de fazer isso de uma unica vez. Conheço o replace (mas não confio 100%), também conheço a refatoração, mas essa ultima não consegui executar a tarefa, se alguém puder ajudar agradeço.

Como o codigo esta
var
  query : TIBDataSet; // quero alterar essa classe,...
begin
  query := TIBDataSet.Create(nil);
  try
    try
      Query.database := self.conn; // essa linha,...
.
.
.

Como o codigo deve ficar
var
  query : TFDQuery; // ... por essa classe.
begin
  query := TFDQuery.Create(nil);
  try
    try
      query.Connection := self.conn; // ... por essa linha
.
.
.

 

[Jhonas]

Refatoração (do inglês, Refactoring) é o processo de alterar o código fonte de uma maneira que não altere seu comportamento externo e ainda melhore a sua estrutura interna. É uma técnica disciplinada de limpar e organizar o código, e por consequência minimizar a chance de introduzir novos Bugs

Refatorando Código

http://docwiki.embarcadero.com/RADStudio/XE5/en/Refactoring_Code

AQtime for Delphi XE5

http://cc.embarcadero.com/item/29525

 

para fazer isso, voce vai precisar do FIREDAC

http://www.embarcadero.com/br/products/rad-studio/firedac

  con := TFDConnection.Create(nil);
  query := TFDQuery.Create(con);

http://stackoverflow.com/questions/28489504/firedac-query-not-reading-large-integers-correctly

 

exemplo

// Criar uma consulta e uma conexão 

fFireDACQuery := TFDQuery.Create(nil);

fFireDACConnection := TFDConnection. Create(nil);

// Fazer a Conexão.

fFireDACQuery.Connection := fFireDACConnection;

// Conectar ao  database;

fFireDACConnection.Params.Clear;

fFireDACConnection.Params.Add('DriverID=SQLite');

fFireDACConnection.Params.Add('Database=C:\testedb.db');

fFireDACConnection.Open; fFireDACQuery.SQL.Text := 'SELECT * from tabela where campo = :vcamp';

fFireDACQuery.ParamByName('vcamp').AsString := 'nome';

fFireDACQuery.Open;

 

abraço

[DanielR]

Obrigado Jhonas por sua resposta, completa como sempre, no entanto demorei para ver a resposta no post, logo terminei por criar (meu colega de trabalho quem fez) uma aplicação para ler todos os arquivos .pas de uma unica vez e alterar o texto desejado neles.

Deu certo.

De qualquer maneira agradeço por todo o empenho desprendido.