Wenas amigos!!
Tengo una pequeña duda, y sobre como buscar una cadena dentro de un fichero.
mi fichero tiene un forma como este:
nombre apellido apellido2 fecha dni
y quisiera saber si yo puedo buscar la cadena de DNI y mostrar la linea entera
Código Delphi
[-]
procedure TForm3.Button1Click(Sender: TObject);
begin
buscar:=MaskEdit1.Text;
if FileExists('Clientes2.txt') then begin
AssignFile (fich,'Clientes.txt');
Reset (fich);
while not Eof(fich) do Begin
Readln(fich,texto);
if (buscar=texto) then begin
Memo1.Lines.Add(texto);
end;
end; CloseFile (fich);
end
else begin
ShowMessage('El fichero aun no existe');
end;end;
Aver si alguien me puede echar una mano y decirme como se podria hacer
Muchas Gracias!!!