[delphi-br] Editor de texto - o q tem de errado neste código?

Sat, 09 Sep 2006 10:31:19 -0700 

quero fazer o localizar e o substituir, mas só aparece a caixa do 
localizar e nao localiza.


procedure TfrmPrincipal.actLocalizarExecute(Sender: TObject);
begin
   FndDialog.Execute;
   Localizar(sender);
end;

 Procedure TfrmPrincipal.Localizar(Sender: TObject);
var
  Aux : longInt;
  Inicio, Fim : Integer;
 begin
   With TfrmTexto(ActiveMDIChild) do
    begin
     if (fndDialog.Execute) then
       begin
        If rieTexto.SelLength > 0 Then
                Inicio := rieTexto.SelStart + rieTexto.SelLength
        else
         Inicio := 0;
         Fim := Length(rieTexto.Text) - Inicio;
         aux := rieTexto.FindText(fndDialog.findtext, Inicio, Fim, 
[stmatchcase]);
          If aux <> -1 Then
           Begin
            rieTexto.SetFocus;
            rieTexto.SelStart := Aux;
            rieTexto.SelLength := Length(fndDialog.FindText);
           end;
       end
     else
       Messagedlg(Concat('Não é possível 
encontrar: "',fndDialog.findText, '"'), mterror, [mbok],0);
    end;
 end;



procedure TfrmPrincipal.actSubstituirExecute(Sender: TObject);
begin
      ReplaceDialog.Execute;
      Substituir(sender);
end;

procedure TfrmPrincipal.Substituir(Sender: TObject);
begin
 with TfrmTexto(Sender) do
  begin
   With TReplaceDialog(Sender) do
    Begin
      If Pos(findText, rieTexto.Lines.Text) > 0 Then
       Begin
         rieTexto.SelStart := Pos(FindText, rieTexto.Lines.text) - 1;
         rieTexto.SelLength := Length(FindText);
         rietexto.SelText := ReplaceText;
       end
      else
        Messagedlg(Concat('Não é possível 
encontrar: "',FindText, '"'), mterror, [mbok],0);
    end;
  end;
end;






-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Responder a