Delphi读取文本文件的最后一行

xiuzhentianting

于 2015-09-15 19:25:37 发布

阅读量1k

点赞数

分类专栏： delphi

本文链接：https://blog.csdn.net/xiuzhentianting/article/details/48472969

版权

这篇博客介绍了一种使用Delphi编程语言高效读取文本文件最后一行的方法，避免了传统方式对于大文件处理时的速度问题。通过示例代码展示了如何遍历多个文件并获取每个文件的末行，同时还提供了一个自定义的TextSeek函数，用于在文件中定位特定位置。

摘要由CSDN通过智能技术生成

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  LFindHandle: THandle;
  LFindData: TWin32FindData;
  LSearchFullPath, LFileName: String;
  LFileList: TStringList;
  LLines: TStringList;
  I: Integer;
  LFile: TextFile;
  LLine, LLastLine: string;
begin
  // 对于大文件，速度很慢
  LFileList := TStringList.Create;
  LLines := TStringList.Create;
  LSearchFullPath := Edit1.Text;

  FillChar(LFindData, SizeOf(LFindData), 0);
  LFindHandle := FindFirstFile(PChar(LSearchFullPath), LFindData);
  if LF