Llamar una fución(parametros)

[Stevenmn]

Buenas, lo que pasa es que tengo un problema desde ayer, hice una función para buscar en un memo, esta bien y todo, pero no se como llamarla, hace muy poco empece en delphi y pues estoy buscando a ver....


Esta es la funcion:

function buscar(s:string;posicion:longint;o:boolean):string;
begin

o := InputQuery('Buscar..','Escriba la palabra a buscar',s);
posicion := Pos(s,form1.Memo1.Text)-1;

form1.Memo1.SelStart := posicion;
form1.Memo1.SelLength := Length(s);
form1.Memo1.SetFocus;

end;

y esta es la llamada:

procedure TForm1.Buscar1Click(Sender: TObject);
begin
buscar('no se que poner aqui);
end;

El error es:

value assigned o never used

Es con la variable o

[[eduarcol]]

Pues estan mal declaradas las variables para comenzar, seria bueno si nos contaras que tipo de resultado debe devolver la funcion, booleano??

[[egostar]]

algo así

Código Delphi [-]
  buscar('no se que poner aqui',1,true);

Salud OS

[Stevenmn]

Pues estan mal declaradas las variables para comenzar, seria bueno si nos contaras que tipo de resultado debe devolver la funcion, booleano??

Bueno pues no soy muy experto en funciones, pero el inputquery por lo que he visto se usa una variable booleana y el resultado como string

buscar('no se que poner aqui',1,true);

Gracias man era justo eso, pero una cosa porque se le da el valor de 1 a posicion ?

No puede estar en cero o que ?

1 es para inicializarla ?

[[eduarcol]]

Te explico cuando trabajas con funciones y procedimientos debes separar los parametros de las variables, en tu caso tienes tres variables y ningun parametro por lo que deberia quedar algo asi

Código Delphi [-]
function buscar:string;
var
   s:string;
   posicion:longint;
   o:boolean

ahora te puedo ayudar a estructurar mejor tu funcion pero dime que esperas de resultado de ella, que te devuelva el string que consiguio o un simple verdadero en caso de haberlo encontrado, porq segun tu codigo no se devuelve nada, en ese caso te convendria un procedimiento

pero todos son conjeturas hasta que nos explique mejor loq ue necesitas

[Stevenmn]

Bueno lo que quiero hacer es un tipo de busqueda estilo bloc de notas, osea la string que le de en el inputquery la busque en el memo, si la encuentra empiece desde el valor de posicion, obtenga la longitud de la cadena y luego le de el focus a ella, para asi quedar señalada la palabra encontrada.

Fuciona bien.

Ahora estoy es tratando de hacer la "busqueda siguiente", pero como esto ya lo habia hecho en vb, pues ya se como podria, el problema en si era lo de los parametros dela funcion.


------

aaa y por lo de la funcion la hice asi por este documento del guille

http://www.elguille.info/delphi/apun...ntesDelphi.htm

ROCEDIMIENTOS Y FUNCIONES



Delphi, es un lenguaje estructurado, lo cual indica que los programas escritos en este lenguaje, pueden descomponerse en pequeños módulos que pueden ser llamados cuando los necesitemos. Estos módulos en Pascal se llaman funciones y se identifican mediante un nombre. Se declaran del siguiente modo:



function nombre (argumento1: tipo; argumento2: tipo;...) : tipo;

Begin

<Acciones a realizar>

End;



Donde nombre es el nombre que se asignará a la función, argumento1 y argumento2 son valores que pasan a la función y tipo es el tipo de valor que retornará como resultado. Por ejemplo, si queremos implementar en Pascal la función matemática: f(x, y) = (x * x + y) / x siendo x e y números enteros, se realizaría de este modo:



Function f (x: integer; y: integer) : integer;

Begin

F = (x * x + y) / x;

End;

[[egostar]]

Empezado por Stevenmn

Bueno pues no soy muy experto en funciones, pero el inputquery por lo que he visto se usa una variable booleana y el resultado como string



Gracias man era justo eso, pero una cosa porque se le da el valor de 1 a posicion ?

No puede estar en cero o que ?

1 es para inicializarla ?

Pues asigne 1 porque se me pego la gana, , vamos, que puede ser el valor que sea o necesites. fue solo un ejemplo.

Salud OS

[[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