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

como localizar uma palavra no richedit


Xismenes

Pergunta

como eu faço pra localizar uma palavra no richedit ??

Queria fazer um localizar igual tem no explorer , ele marca e vai até a palavra ... Eu consegui fazer um localizar que só seleciona a palavra, ai se o texto é muito grande já não da , porque ele não vai até a palavra, só seleciona ...

Valeww !!

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Procedure TForm1.Button1Click(Sender: TObject);
 var i:integer;
begin
 i:= pos( edit1.text,RichEdit1.Text)-1;
 RichEdit1.SelStart := i;
 RichEdit1.SelLength := length(edit1.text);
 RichEdit1.SelAttributes.Color := ClRed;
 RichEdit1.SelAttributes.Style := [fsBold];

end;

fonte: http://www.planetadelphi.com.br/dica/6749/...vra-no-richedit

Link para o comentário
Compartilhar em outros sites

  • 0
Procedure TForm1.Button1Click(Sender: TObject);
 var i:integer;
begin
 i:= pos( edit1.text,RichEdit1.Text)-1;
 RichEdit1.SelStart := i;
 RichEdit1.SelLength := length(edit1.text);
 RichEdit1.SelAttributes.Color := ClRed;
 RichEdit1.SelAttributes.Style := [fsBold];

end;
fonte: http://www.planetadelphi.com.br/dica/6749/...vra-no-richedit
Aproveitando o tópico, alguém pode me ajudar denne código:
var
z: integer;
f: TextFile;
   texto: String;

begin

       AssignFile (f, 'C:\Arquivo.txt');

       reset(f);
       read(f, texto);
     
    z := AnsiPos('string_a_localizar', texto);
    edit1.text:= inttostr (z);

    closefile(f);

Estou tentando localizado uma string em um arquivo de txt e exibir a localização em um edit. Usando esse código, ele retorna a posição dos caracteres que estão na 1ª linha, mas quando tento procurar um caractere que está nas demais linhas o código me retorna sempre o valo '0'.

Como eu faço para resolver isso?

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,8k
×
×
  • Criar Novo...