在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控件中显示其内容。您可以将上述代码根据您的需求进行修改和扩展。
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,请发送邮件至 55@qq.com 举报,一经查实,本站将立刻删除。转转请注明出处:https://www.szhjjp.com/n/879155.html