UC知道delphi语言中，怎样用edit组件中输入路径及文件名创建相应文件？答对加分
来源：百度知道 编辑：UC知道 时间：2024/05/04 08:24:05
一般创建文件都是已知文件名及路径的，必须在代码里把路径及文件名填好，这样程序的使用者就无法自主决定了
我想写一段专门用来创建文件的代码，由用户自己在edit组件里输入一行路径及文件名扩展名，然后只须运行代码，就会按照edit组件中输入的内容来自动创建相应文件。
我该用哪个函数？
我曾经试过下面这段代码。但是编译报错。
var
f:textfile;
fname:string;
begin
fname:=edt1.Text;
Assign(f,fname);
if FileExists(fname) then
Append(f)
else
Rewrite(f)
Assign(f,fname);这一行有错：[Error] Unit1.pas(35): Incompatible types: 'TPersistent' and 'Text'
我应该怎么修改？或者换哪种方法呢？
答对者再加20分
我想写一段专门用来创建文件的代码，由用户自己在edit组件里输入一行路径及文件名扩展名，然后只须运行代码，就会按照edit组件中输入的内容来自动创建相应文件。
我该用哪个函数？
我曾经试过下面这段代码。但是编译报错。
var
f:textfile;
fname:string;
begin
fname:=edt1.Text;
Assign(f,fname);
if FileExists(fname) then
Append(f)
else
Rewrite(f)
Assign(f,fname);这一行有错：[Error] Unit1.pas(35): Incompatible types: 'TPersistent' and 'Text'
我应该怎么修改？或者换哪种方法呢？
答对者再加20分
我觉得，很多人用快速开发语言写代码很多的时候还是用传统的方式，呵呵，我的意思是，向你这么简单的功能为什么要写那么多的代码呢，用MEMO代替EDIT，可以很快和正确的完成你需要的功能，除非你有其他的要求。
删除edit控件，用memo替代并调整memo的尺寸和edit的大小一致，不用scrollbar和wordwrap。
用下面的函数代替你的文件保存函数：
procedure savefile1;
begin
memo1.lines.savetofile(memo1.text); //memo1.text的内容是你的文件地址，也就是你写在edit.text中的内容.
end;
一句代码就搞定，保存的事情交给DELPHI的MEMO去完成，把时间和精力放在别的代码上。
用AssignFile(f, fname);