这个问题很简单的，请大家进来看看吧！来帮帮我！谢谢

Question

请大家帮帮忙，帮我写出如下题目的源码！谢谢你们！
  题目：两个Edit.两个Button,所要实现的功能是：一个Edit是读取指定文件中的内容，一个Edit是把内容写到指定文件中。这里最难解决的问题是：如何寻找相对路径下的指定文件？？这个请特别注明清楚！谢谢各位高手的相助！

Answer 1

TOpenDialog 打开文件用这个控件就行，看看帮助吧

Answer 2

找文件用可以选择的控件比较好吧
WIN3。1里的DIRECTROYLISTBOX，和FILELISTBOX。
而且用EDIT读文件的内容不太好吧,为什么不用MEMO呢?

Answer 3

//读;
var
  Tf : textfile;
try
  Assignfile(tf,//指定的路径）；
  reset(tf);
  while not eof(tf)do
  begin
    readln(tf,str);
    edit1.text := str;
  end;
  closefile(tf);
except
showmessage('失败');
end;
//写
var
  Tf : textfile;
try
  Assignfile(tf,//指定的路径）；
  rewrite(tf);
  writeln(tf,edit2.text);
    closefile(tf);
except
 showmessage('失败');
end;

Answer 4

to pengqi19810627:    为何我用Assignfile(ft,'test.txt'),它提示文件找不到呢？

Answer 5

看看你的文件路径对不对啊
Assignfile(ft,'test.txt')这个是相对路径
应该和你的EXE在同一路径下

Answer 6

To DelphiBird:
   我已经将我的应用程序放至与'test.txt'相同目录下，但它仍旧显示‘文件找不到’
   关于这个查找相对路径下的文件，我均已作用过好多命令：如FindFirst/FindNext/FindClose.FileExists,都显示文件找不到！这与EXE文件在不在跟指定文件同一目录下没有关系！就是不知道问题出在哪里啊！能不能再帮我看看啊？
  
   亲爱的朋友们，请伸出你们热情的双手，帮帮我吧！

Answer 7

Dear All:    以下问题我已解决，把EXE文件放在与指定文件相同路径下，可以非常运作！
    但是现在我要解决的是，在应用程序文件中，怎样寻找不在同一盘和目录的文件又是要如何做呢？
 
    请各位朋友帮帮忙！