Hola, estoy realizando una aplicación en delphi 5, y en una de las partes tengo que realizar una editor de textos, que disponga de la funcionalidad buscar. Esto lo he encontrado echo en muchos sitios pero a mi realmetne no me funciona
el codigo que he utilizado a sido:
procedure TForm1.FindDialog1Find(Sender: TObject);
var
FoundAt: LongInt; //defino la variable donde se ha encontrado
StartPos, ToEnd: Integer; // defino la variable de comienzo y de final
begin
with Memo1 do // cogemos el memo para trabajar con él, todas las variables que cojamos hacen referencia a ese objeto
begin
if SelLength <> 0 then // si no estamos al principio del texto
StartPos := SelStart + SelLength //comenzamos desde donde estemos
else
StartPos := 0;
ToEnd := Length(Text) - StartPos; // definimos la longitud desde el comienzo hasta el final
//EL ERROR ESTÁ EN LA SIGUIENTE LINEA, LA HE COMENTADO PARA PODER COMPILAR
//FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd,[stMatchCase]); // buscamos el texto con los datos que hemso calculado
if FoundAt <> -1 then begin
SetFocus; // colocamos el curso ahí
SelStart := FoundAt; // comenzamos a seleccionar donde lo ha encontrado
SelLength := Length(FindDialog1.FindText); // seleccionamos la longitud del texto a buscar
end;
end;
end;
--------
El error que me da es que dice que no está definida la función FindText. A ver, que me decis, por que yo ya estoy harta de darle vueltas al codigo y no encuentro la solución por ningun lado
