delphi 三种方式读取TXT文本文件

function Readtxt(const filename: TFileName): String;

var

  List: TStringList;

begin

  if (FileExists(filename)) then

  begin

    List := TStringList.Create;

    List.Loadfromfile(filename);

    Result := List.text;

    List.Free;

  end;

end;

uses  IOUtils;

function Readtxt(const filename: TFileName): String;

begin

  try

  Result:= TFile.ReadAllText(filename); {可指定编码格式}

  finally

  end;

end;

function Readtxt(const filename: TFileName): String;

var

  Stream   : TStream;

  Size     : Integer;

  Buffer   : TBytes;

  Encoding : TEncoding;

begin

  Encoding := NIL;

  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);

  try

    Size := Stream.Size - Stream.Position;

    SetLength(Buffer, Size);

    Stream.Read(Buffer[0], Size);

    Size := TEncoding.GetBufferEncoding(Buffer, Encoding, TEncoding.ANSI);

    Result := Encoding.GetString(Buffer, Size, Length(Buffer) - Size);

  finally

    Stream.Free;

  end;

end;

function Readtxt(filealeer: string): string;

var

  txt: TextFile;

  txtlines: string;

  finaldearchivo: string;

begin

  finaldearchivo := '';

  AssignFile(txt, filealeer);

  Reset(txt);

  while not Eof(txt) do

  begin

    ReadLn(txt, txtlines);

    finaldearchivo := finaldearchivo + txtlines;

  end;

  CloseFile(abriendo);

  Result := finaldearchivo;

end;