怎样edit组件中输入的路径及文件名信息来创建文件？

Question

如果是用rewrite的话，好像必须在代码里把路径及文件名填好，这样程序的使用者无法自主决定了
我想写一段专门用来创建文件的代码，由用户自己在edit组件里输入一行路径及文件名扩展名，
然后只须运行代码，则会按照edit组件中输入的内容来创建文件。
我该用哪个函数？

Answer 1

用ForceDirectories(Dir: string)创建文件夹,ForceDirectories(Dir: string)可以创建包括子文件夹在内的所有文件夹然后在Dir目录下,创建文件

Answer 2

创建文件用Rewrite(F)或FileCreate()

Answer 3

Rewrite(F)的F只能是文件类型吧？如果是文件类型，那么怎样把用户输入的路径及文件名关联到F呢？

Answer 4

var
  F:TextFile;
begin
  AssignFile(F,'C:\111.txt');

Answer 5

我曾经试过编写以下代码：var
  f:textfile;
  fname:string;
begin
  fname:=edt1.Text;
  Assign(f,fname);
  if FileExists(fname) then
  Append(f)
  else
  Rewrite(f);但是出现错误：
[Error] Unit1.pas(35): Incompatible types: 'TPersistent' and 'Text'
第35行就是  Assign(f,fname);这一行
不知道该怎样修改。还是我这个方法行不通

Answer 6

var 
  F: TextFile; 
begin 
  AssignFile(f,  'c:\1.txt'); 

Answer 7

个人比较喜欢用FileCreate和TFileStream