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:
Cita:
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:
Cita:
procedure TForm1.Buscar1Click(Sender: TObject);
begin
buscar('no se que poner aqui);
end;
|
El error es:
Cita:
value assigned o never used
|
Es con la variable o