Colocar toda SQL de todas as TQuerys em Maiusculo

Delphi

19/02/2004

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 conseguir pode mandar para o meu e-mail que eu vou ficar muito agradecido.
rsrangel@faesa.br

Muito obrigado a todos pela atençao.


Drakkar

Drakkar

Curtidas 0

Respostas

Drakkar

Drakkar

19/02/2004

:? po ninguem sabe nao?

:(


GOSTEI 0
Lucas Silva

Lucas Silva

19/02/2004

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.


GOSTEI 0
Drakkar

Drakkar

19/02/2004

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.


GOSTEI 0
Fabio.hc

Fabio.hc

19/02/2004

Tente assim:
- Coloque no form 1 Memo, 1 OpenDialog e 1 Button, vc seleciona um .dfm para ser alterado.

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;



GOSTEI 0
Drakkar

Drakkar

19/02/2004

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.


GOSTEI 0
Drakkar

Drakkar

19/02/2004

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


GOSTEI 0
Drakkar

Drakkar

19/02/2004

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.


GOSTEI 0
POSTAR