Llamar una fución(parametros)

[[eduarcol]]

Pues esta muy bien que te hayas documentado es bueno aprender las cosas por esfuerzo propio, pero lo que te decia es una forma mas adecuada de realizar las cosas, y te explicaba cosas que quizas no has visto, pues tienes las dos opciones tu escojes cual se adapte mas a tus necesidades

me alegra qe hayas podido resolver el problema

[Stevenmn]

a listo gracias,

lo que no he podido hacer la busqueda siguiente intento pornerle +1 al llamarla, pero nada.


-------------------------------

Otra cosa en que evento se encargar de el texto seleccionado por ejemplo:

Tengo en un mainmenu el boto copiar, pero cuando no este nada seleccionado quiero que dessactivado, al igual queel bloc de notas de win, en algun onmouse o el onchage o ke.... voy viendo....

[[eduarcol]]

aclareme algo, la busqueda funciono o no??

si no funciona prueba esto:

Código Delphi [-]
procedure buscar;
var
   cPalabra: String;
   nPos: Integer;
begin
   if InputQuery('Buscar...', 'Escriba la palabra a buscar', cPalabra) then
   begin
      nPos := Pos(cPalabra, Memo1.Text) - 1;
      Memo1.SetFocus;
      Memo1.SelStart := nPos;
      Memo1.SelLength := Length(cPalabra);
   end;
end;

[[eduarcol]]

No habia visto bien lo que habias escrito,

Empezado por Stevenmn

lo que no he podido hacer la busqueda siguiente intento pornerle +1 al llamarla, pero nada.

pues para realizar la busqueda siguiente no veo como adaptar lo qeu tienes a lo que necesitas, asi que te propongo dos bloques de codigo nuevos

Para buscar

Código Delphi [-]
if InputQuery('Buscar...', 'Escriba la palabra a buscar', cPalabra) then
   begin
      nPos := -1;
      nPos := Pos(cPalabra, Memo1.Text) - 1;
      if nPos =  -1 then
      begin
         ShowMessage('Palabra no encontrada');
         exit;
      end;
      cSinBuscar := Copy(Memo1.Text, nPos + 1 + Length(cPalabra), Length(Memo1.Text));
      nLength := Length(Copy(Memo1.Text, 1, nPos)) + Length(cPalabra);
      Memo1.SetFocus;
      Memo1.SelStart := nPos;
      Memo1.SelLength := Length(cPalabra);
   end;

Para buscar el siguiente

Código Delphi [-]
nPos := -1;
   nPos := Pos(cPalabra, cSinBuscar) - 1;
   if nPos =  -1 then
   begin
      ShowMessage('Palabra no encontrada');
      exit;
   end;
   cSinBuscar := Copy(cSinBuscar, nPos + 1 + Length(cPalabra), Length(cSinBuscar));
   Memo1.SetFocus;
   Memo1.SelStart := nPos + nLength;
   Memo1.SelLength := Length(cPalabra);
   nLength := nLength + Length(Copy(cSinBuscar, 1, nPos)) + Length(cPalabra);

Cabe destacar que debes tener esta variables en las globales

Código Delphi [-]
cPalabra, cSinBuscar: String;
   nPos, nLength: Integer;

cualquier duda avisas

[Stevenmn]

muchas gracias por el code, sino consigo hacerla como quiero pues usare esa forma, lo que pasa es que lo quiero hacer de esta forma

http://www.recursosvisualbasic.com.a...ico5.htm#instr

Option Explicit

Private m_Pos As Integer


Sub buscar_cadena(ByVal Posicion As Integer)

Dim p As Integer, Frase As String

    Frase = txt_Buscar
    
    p = InStr(Posicion, Text1, Frase)
    
    If p > 0 Then
        m_Pos = p
        
        With Text1
            .SelStart = m_Pos - 1
            .SelLength = Len(Frase)
            .SetFocus
        End With
    Else
        MsgBox "No se encontró la frase", vbInformation
        Text1.SetFocus
    End If
End Sub

Private Sub Command1_Click()
Call buscar_cadena(1)
End Sub

Private Sub Command2_Click()
Call buscar_cadena(m_Pos + 1)
End Sub

Este mismo codigo lo he hecho en delphi, lo unico que varia es ala funcion isntr por pos.
El problema que creo que es, es que la funcion POS de delphi no requiere una posicion, en cambio la instr si, no habra otra ??


^^