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;



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截图程序无窗口版

Delphi 将 4 个 byte 合成 1 个 integer 的五种方法 - 回复 "三足乌" 的问题

Delphi 关于汇编call的例子

Delphi删除目录及其子目录

Delphi实现百度地图经纬度与地址互转

Delphi getprocessidentity 获取当前登录状态的管理员

Delphi 禁止用键盘左右箭头，去切换pagecontrol页签

Delphi xe6 读取android设备联系人

Delphi在64位系统下写注册表注意事项

Delphi 在memorystream查找字符串

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 三种方式读取TXT文本文件