Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Refatoração Delphi XE5


DanielR

Pergunta

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
.
.
.

 

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...