delphi怎么读取txt文件内容

在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控件中显示其内容。您可以将上述代码根据您的需求进行修改和扩展。