没有完全明白你的意思,你是只要打开文件名,还是要打开txt文件并把txt中的内容
读取。
这个你可以参考一下,在formshow下写代码,
............
var
myfile:textfile;
s:string;
begin
if opendialog1.execute then
edit1.text:=opendialog1.filename;//将打开的wenjian.txt文件名读取到edit中
assignfile(myfile,'d:\wenjian.txt');//将在d盘中的wenjian.txt文件内容读取到memo中
reset(myfile);
while not eof(myfile) do
begin
readln(myfile,s);
memo1.lines.add(s);
end;
end;