iGamesbr
Visite nosso novo website.

http://manoproject.tk

ou manocelo.tk os dois são o mesmo website.
iGamesbr

O melhor conteúdo.
 
InícioInício  PortalPortal  CalendárioCalendário  FAQFAQ  MembrosMembros  Registrar-seRegistrar-se  Conectar-se  Seja um Over Member!  

Compartilhe | 
 

 Procurando letras e palavras em um Tmemo.

Ir em baixo 
AutorMensagem
Nick
Ex - Moderador
Ex - Moderador
avatar

Sexo : Masculino
Mensagens : 73
Creditos : 2582
Agradecimentos : 1
Data de inscrição : 03/02/2012
Idade : 27

MensagemAssunto: Procurando letras e palavras em um Tmemo.   Sab Fev 04, 2012 11:55 am

Crie um Projeto em Branco.

1- O 1º Passo é vc ir até a paleta 'Dialogs" e colocar em seu Form (Formulário) o componente TFindDialog. ñ precisa mudar a propriedade Name dele pode deixa Finddialog1.

2º- Insira um Componente TMemo.

3º- Declare a Variável "FSelPos" bem aqui:

Código:

private
    { Private declarations }
    FSelPos: integer;
  public
    { Public declarations }
  end;


Ela foi delcarada abaixo do Form1 neste exemplo porq essa variável
será acessada fora da classe.

4º- Vá até o componente FindDialog1 e insira o seguinte código ao Evento 'Onfind" do componente:

Código:

var
  S : string;
  startpos : integer;
begin
  with TFindDialog(Sender) do
  begin
    if FSelPos = 0 then
      Options := Options - [frFindNext];
    if frfindNext in Options then
    begin
      StartPos := FSelPos + Length(Findtext);
      S := Copy(Memo1.Lines.Text, StartPos, MaxInt);
    end
    else
    begin
      S := Memo1.Lines.Text;
      StartPos := 1;
    end;
    FSelPos := Pos(FindText, S);
    if FSelPos > 0 then
    begin
      FSelPos := FSelPos + StartPos - 1;
      Memo1.SelStart := FSelPos - 1;
      Memo1.SelLength := Length(FindText);
      Memo1.SetFocus;
    end
    else
    begin
      if frfindNext in Options then
        S := Concat('Não há nehuma ocorrência para "', FindText,
          '" no memo..')
      else
        S := Concat('Não foi possível achar: ',findtext);
      MessageDlg(S, mtError, [mbOK], 0);
    end;
  end;
end;

//Aqui, quando clicar no botão ele irá abrir o diálogo de procura ...

Código:
procedure TForm1.Button1Click(Sender : TObject);
begin
//Irá começar a procurar desde 0, lá em cima.
  FSelPos := 0;
  FindDialog1.Execute;
end;
Voltar ao Topo Ir em baixo
pitio157
Moderador Gamezone
Moderador Gamezone
avatar

Sexo : Masculino
Mensagens : 55
Creditos : 2510
Agradecimentos : 1
Data de inscrição : 10/02/2012
Idade : 21

MensagemAssunto: Re: Procurando letras e palavras em um Tmemo.   Sex Fev 10, 2012 5:21 pm

Eu to querendo aprender a meche com DEPLHI posta um tuto pra novatos ai Very Happy
Voltar ao Topo Ir em baixo
 
Procurando letras e palavras em um Tmemo.
Voltar ao Topo 
Página 1 de 1

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
iGamesbr :: Info Zone :: Desenvolvimento - Pro :: Delphi-
Ir para: