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

delphi4年前 (2021)发布 admin

332 0 0

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;

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;

# delphi