buscar texto
 

buenas, me gustaria saber como poder buscar un texto dentro de una memo.

Gracias!

Hola,

Pues así, sin muchas florituras:

Código Delphi [-]
var
  i: integer;
begin
  i := AnsiPos('texto', Memo1.Text);
  if i <> 0 then
    ShowMessage('Texto encontrado en la posición: '+IntToStr(i))
  else
    ShowMessage('No se encontró el texto');
end;

También puedes usar el TFindDialog

Gracias Dec!

jhonny como seria con el TFindDialog?

Eso viene bastante bien detallado en la ayuda de Delphi (creo que hasta con un ejemplo).

Una vez escribí unas líneas para hacer búsquedas más específicas. Aquí.

Saludos

Gracias x la información!

Perdón, perdón, perdón, perdón, perdón, perdón, perdón.... y mil veces perdón. Me equivoqué al poner el enlace. Pero ya lo he corregido (puse un hilo equivocado). Lo pongo aquí otra vez.

hola

ps no tengo en si la busqueda en un memo pero aqui te pas un codigo q hace la busqueda en un lisbox.

espero te sirva

:D

procedure Buscar(Lista: TStringList; Path: String);
var
SearchRec: TSearchRec;
begin
if Copy(Path, Length(Path), 1) <> '\' then
Path:= Path + '\';
if FindFirst(Path + '*',faAnyFile,SearchRec) = 0 then
repeat
if (SearchRec.Attr and faDirectory) = faDirectory then
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
begin
Lista.Add(Path + SearchRec.Name);
Buscar(Lista, Path + SearchRec.Name);
end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;

Gracias, al fin pude hacer q funcionara bien el finfialog.

En cuanto a ixMike, tu anterior enlace, me ayudo para configurar lo d la impresora, gracias :D

Una vez mas queda confirmado que los mejor inventos han sido creados por accidente :D

:D:D O como diriamos en México, Nadie sabe para quien trabaja,:D:D

Salud OS.