delphi怎么读取txt文件内容-开发者知识库平台

delphi怎么读取txt文件内容

delphi

892

2024/2/16 16:29:37

栏目: 编程语言

在Delphi中读取txt文件内容可以使用TStringList组件和TFileStream组件来实现。下面是一个简单的示例代码：

procedure ReadTxtFile(const FileName: string; var Content: TStringList);
var
  FileStream: TFileStream;
begin
  Content.Clear;
  FileStream := TFileStream.Create(FileName, fmOpenRead);
  try
    Content.LoadFromStream(FileStream);
  finally
    FileStream.Free;
  end;
end;

在上面的代码中，我们首先创建一个TFileStream对象来打开txt文件，然后将文件内容加载到TStringList中。使用示例代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  Content: TStringList;
begin
  Content := TStringList.Create;
  try
    ReadTxtFile('example.txt', Content);
    Memo1.Lines.Assign(Content);
  finally
    Content.Free;
  end;
end;

在上面的示例中，我们创建了一个TStringList对象来存储txt文件的内容，并在Memo1控件中显示其内容。您可以将上述代码根据您的需求进行修改和扩展。

辰迅云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>

delphi怎么读取txt文件内容

最新知识库

相关标签