buscar texto

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