buscar texto

[fenther]

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

Gracias!

[dec]

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;

[jhonny]

También puedes usar el TFindDialog

[fenther]

Gracias Dec!

jhonny como seria con el TFindDialog?

[ixMike]

Empezado por fenther

¿Cómo sería 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

[fenther]

Gracias x la información!

[ixMike]

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.

[Dtrinig]

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



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;

[fenther]

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

[jhonny]

Empezado por fenther

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

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

[[egostar]]

Empezado por jhonny

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

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

Salud OS.