Digite em 'Pesquisar Dica' o que deseja procurar. Ex: DBGRID

PESQUISAR DICA:

DELPHI8 - LER ARQUIVO TEXTO COM ACENTUACAO


var
  sr: StreamReader; { System.IO }
  fs: FileStream; { System.IO }
  Enc: UTF7Encoding; { System.Text }
  P: string;
begin

  P := Page.Request.PhysicalApplicationPath + 'Arqs\';

  Enc := UTF7Encoding.Create;
  fs := FileStream.Create( P + 'theclub.txt', FileMode.Open);
  sr := StreamReader.Create(fs, Enc);

  try
    while sr.Peek > 0 do
      Response.Write( sr.ReadLine+ '<br>' );
    sr.Close;
  finally
    fs.Free;
    sr.Free;
  end;
end;