delphi如何读取一个文本

来源：百度知道 编辑：UC知道 时间：2024/05/12 20:19:51
就是界面上放着一个memo空间跟按钮
按下按钮获取一个文本的内容到memo控件内

楼上没有看题目...

memo.lines.loadfromFile('文本文件路径');

就可以了

创建一个文本文件，从文本文件里一行一行的读出来。再写到memeo 就可以了：
var
myfile:TextFile;
begin
pdTxtGoods.Filter:='盘点文件(*.Txt)|*.Txt';
if OpdTxtGoods.Execute=false then exit;
AssignFile(myfile, OpdTxtGoods.FileName); //将文件变量与文件关联
Reset(myfile);
try
try
while Not Eof(myfile) do
begin
Readln(myfile,str);

Except
On E:Exception do
begin
Application.MessageBox(PChar('导入数据失败！原因：' + E.Message),'',MB_OK+MB_ICONERROR);
end;
end;
finally
CloseFile(MyFile);
end;
end;