Filtrar las filas encontradas en un txt

[Casimiro Noteví]

¿Pero qué quieres hacer? ¿cargar un fichero de texto y mostrarlo?

[ecfisa]

Hola.

Según te entiendo, sería algo así:

Código Delphi [-]
procedure AddLocated(const FileName, Searched: string; Lines: TStrings);
var
  TS: TStrings;
  i : Integer;
begin
  TS := TStringList.Create;
  try
    TS.LoadFromFile(FileName);
    for i := 0 to TS.Count - 1  do
      if AnsiPos(Searched, TS[i]) <> 0 then
        Lines.Add(TS[i]);
  finally
    TS.Free;
  end;
end;

Ej. de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
  AddLocated('C:\ARCHIVO.TXT', Edit1.Text,  Memo1.Lines);
end;

Saludos

[Racso2006]

cargar un fichero y mostrar en un memo (o meterlas en un DBgrid) las lineas del fichero que contengan la palabra definida en el edit1.

ejemplo:

(lunes 13:30) juan: hola que tal?
(martes 12:45) maria: perfecta aqui comiento
(martes 20:32) jose: yo tambien perfecto, y tu juan?

si este es el fichero, y en el edit ponemos juan tendriamops que optener lo siguiente:
(lunes 13:30) juan: hola que tal?
(martes 20:32) jose: yo tambien perfecto, y tu juan?

[ecfisa]

Hola.

Empezado por Racso2006

cargar un fichero y mostrar en un memo (o meterlas en un DBgrid) las lineas del fichero que contengan la palabra definida en el edit1.

ejemplo:

(lunes 13:30) juan: hola que tal?
(martes 12:45) maria: perfecta aqui comiento
(martes 20:32) jose: yo tambien perfecto, y tu juan?

si este es el fichero, y en el edit ponemos juan tendriamops que optener lo siguiente:
(lunes 13:30) juan: hola que tal?
(martes 20:32) jose: yo tambien perfecto, y tu juan?

Entonces te entendí bién...


Saludos

[Racso2006]

si, entendiste bien y me fue perfecto, lo que no se porque no se publico mi anterior post

muchisimas gracias