Colocar toda SQL de todas as TQuerys em Maiusculo

Question

Pessoal,Alguem tem um programa ou saberia fazer um programa que colocaria toda a SQL de todas as TQuerys em maiusculo de um determinado .DFM?Eu n�o tenho nem ideia de como fazer isso mas se alguem con...

Drakkar · Answer

:?  po ninguem sabe nao? :(...

Lucas Silva · Answer

Acho que d� pra voc� fazer uma rotina sim....

 faz um for 
   query.Sql.Text := UpperCase(query.Sql.Text);

Mais ou menos isso,
Se voc� n�o entendei me d� o toque.

Drakkar · Answer

Acho que voc� n�o entendeu.. eu presciso alterar elas permanentemente, ou seja, o programa ler o .dfm desejado, procura pelas TQuerys e coloca as Strings que t�o na propriedade SQL em maiusculo.

Fabio.hc · Answer

Tente assim:- Coloque no form 1 Memo, 1 OpenDialog e 1 Button, vc seleciona um .dfm para ser alterado.[code:1:881230e754]procedure TForm1.Button1Click(Sender: TObject);var I, P, F:integer;    V, VTexto:string;    Pega:boolean;begin   if OpenDialog1.Execute then      begin      DF:=OpenDialog1.FileName;      Memo1.Lines.LoadFromFile(DF);      end;   VTexto:=Memo1.Text;   P := Pos (�SQL.Strings�, VTexto);   F := length(VTexto);   Pega:=false;   for i:=P to F do      begin      V:=copy(VTexto,i,1);      if V=�(� then         pega:=true;      if V=�)� then         pega:=false;      if pega then         begin         Delete(VTexto,i,1);         Insert(UpperCase(V),VTexto,i);         end;      end;   Memo1.Text:=VTexto;   Memo1.Lines.SaveToFile(DF);end;[/code:1:881230e754]...

Drakkar · Answer

Cara perfeito, funcionou 100�, agora s� falta fazer o Upper no nome dos parametros para n�o dar conflito porque to usando o Delphi 3, mas acho que isso eu mesmo consigo fazer.

Qualquer coisa eu te pe�o uma ajuda.

Muito Obrigado.

Drakkar · Answer

Problemas pessoal, aqui em casa funcionou direitim porque dos DFMs do Delphi 7 s�o em ASCII, por�m eu presciso rodar essa rotina em DFMs do Delphi 3. Parece que elas s�o armazenadas em bin�rio, algu�m poderia escrever uma rotina para ler o .dfm em bin�rio e coloca-lo no memo em texto? E tamb�m tem que ter um para salva-lo em bin�rio no final.

Muito Obrigado

Drakkar · Answer

Desculpa ae pessoal, n�o prescisa responder o meu post acima n�o. Descobri que o Delphi tem um conversor de bin�rio para texto.

Para quem se interressar � o convert.exe e fica na pasta BIN]

Flws.

F�rum Colocar toda SQL de todas as TQuerys em Maiusculo #215405