如何判断输入的文件名是否合法，别人乱输了一个我的程序就over掉了

Question

如题

Answer 1

好像有个fileexist函数，先判断文件存在

Answer 2

我不是要知道文件是否存在
我也以用了tryexcept了　还是出错

Answer 3

ok
if  labelededit1.text=''
    then showmessage('请输入要创建的程序名！')
    else try
           assignfile(usacofile,labelededit1.text+'pas');
           rewrite(usacofile);
           writeln(usacofile,'{');
           writeln(usacofile,'end.');
           closefile(usacofile);
           Application.Terminate;
         except
           showmessage('不能创建程序！');
           labelededit1.text:='';
         end;

Answer 4

if  labelededit1.text=''
    then showmessage('请输入要创建的程序名！')
    else try
           assignfile(usacofile,labelededit1.text+'.pas');/////改了点
           rewrite(usacofile);
           writeln(usacofile,'{');
           writeln(usacofile,'end.');
           closefile(usacofile);
           Application.Terminate;
         except
           showmessage('不能创建程序！');
           labelededit1.text:='';
         end;

Answer 5

FileExists(FileName)检测文件是否存在

Answer 6

谢谢，我用恶心的方法绕过去了我就不让人输入了，只让人在savedialog中完成但我还是想知道“正解”

Answer 7

在调是的时候用try还是会报错，编译完成的就不会了

Answer 8

assignfile,closefile等函数是以前旧版本的东西
现在的Delphi只是为了兼容以前的版本才保留的
建议你不要用这些函数对于文件操作，Delphi提供了很好的流机制，最好使用这些流来操作
对应文件流有TFileStream(文件流)、TMemoryStream(内存文件流)等类

Answer 9

请具体些，我是从turbo pascal开始的