Localizar em Delphi

[ca_dre 0]

Bom dia!!

 

Estou fazendo um programinha para a faculdade, um editor e não consigo fazer o localizar...coloquei o componente FindDialogs, tipo como faz com caixas de dialogos, só que já tentei de todas as formas possiveis!

 

Nem meu professor consegui!! E se tem o componente deve ter um jeito!!

Será que alguém sabe fazer???Porque já estou quase desistindo....

 

Não deve ser uma coisa tão dificil!!

 

 

Obrigada,

 

Camila http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

[WiCkEd 0]

acho que o componente por si só não faz a busca no memo, ou rich edit, você tem que usar uma rotina pra isso, olha no tópico pendurado "Lista de sites com dicas e componentes para delphi" lá tem um link para um arquivo com dicas que tem essa rotina(DTDELPHI 2.6)

[GabrielDelphi 0]

O único código q você tem q por eh "finddialog1.execute".

[ca_dre 0]

o findDialog.execute só faz abrir a caixa de dialogo....e seiu que tem que colocar alguma rotina....ésse é o problema....rs

[WiCkEd 0]

o findDialog.execute só faz abrir a caixa de dialogo....e seiu que tem que colocar alguma rotina....ésse é o problema....rs

:huh: tah bom... então tá aí a rotina pra localizar em um Memo:

Procedure FindReplace (const Enc, subs: String; Var Texto: TMemo);

Var

   i, Posicao: Integer;

   Linha: string;

Begin

   For i:= 0 to Texto.Lines.count - 1 do

   begin

      Linha := Texto. Lines;

      Repeat

         Posicao:=Pos(Enc,Linha);

         If Posicao > 0 then

            Begin

                Delete(Linha,Posicao,Length(Enc));

                Insert(Subs,Linha,Posicao);

                Texto.Lines:=Linha;

            end;

      until Posicao = 0;

   end;

end;

 

Procedure TForm1.Button1Click (Sender: TObject);

Begin

  FindReplace(Edit1.Text,Edit2.Text, Memo1); //pesquisa, só passar os parametros  do finddialog, ou incrementar mais essa rotina com o " Acima/Abaixo"

end;

 

Extraída do DTDelphi v2.6

Essa localiza e substitui, mas se v quiser só localizar, é só adaptá-la ao seu caso.

 

;)

[ca_dre 0]

Valeu!!!Vou testar!!!