一个问题小妹实在不知如何解决了

Question

我现在作一个小程序：
edit1和edit2是分别输入年月的，listbox1是显示的要选取的单位
在kq文件夹下是以‘kq＋年份＋月份＋单位编号’命名的.dbf的文件。在输入了年月选择了单位之后，若是没有这个年份和月份的文件，就要显示找不到该文件。我现在不知道有没有一种方法就是如何能实现输入的年月及单位与搜索文件夹下的文件进行比较然后判断两者是否匹配
谢谢

Answer 1

if FileExists('文件名') then//判断文件是否存在。
  Do Something

Answer 2

yckxzjj(刀剑如梦) 好快的身手^&^

Answer 3

不行，程序运行到这里就不运行了，我是用adoquery连的 
报错：找不到这个文件
这是怎么回事呢

Answer 4

呵呵，不用匹配，把eidt1，edit2和combobox1的字符串连接起来~
FileName:=eidt1.text+edit2.text+combobox1.text+.db然后判断if FileExists(FileName) then
  showmessage('该文件不存在');

Answer 5

1、修改 Edit1、Edit2 为MaskEdit1、MaskEdit2，
   输入掩码9999、99、99999，Function MakeFilename(Const Year,Month,Num: String): String;
Var yy,mm,No: String;
Begin
  Result:='';
  yy:=StrToInt(Trim(Year));
  mm:=StrToInt(Trim(Month));
  No:=StrToInt(Trim(Mum));
  If (1900<=yy) And (yy<2100) And 
     (1<=mm) And (mm<=12) And 
     (0<No) And (No<9999) Then
    Result:= Copy(IntToStr(yy+10000 ),2,4)+'年'
            +Copy(IntToStr(mm+100   ),2,2)+'月 单位'
            +Copy(IntToStr(No+100000),2,0)+'.dbf';
End;

Answer 6

1、修改 Edit1、Edit2 为MaskEdit1、MaskEdit2，
   输入掩码9999、99、99999，缺省输入为0；
2、定义生成文件名的函数MakeFilename：
   假定年为四位、月为两为、单位编号为五位
   函数返回结果为String，为空时表示生成的文件名不合法，否则既为文件名
Function MakeFilename(Const Year,Month,Num: String): String;
Var yy,mm,No: String;
Begin
  Result:='';
  yy:=StrToInt(Trim(Year));
  mm:=StrToInt(Trim(Month));
  No:=StrToInt(Trim(Mum));
  If (1900<=yy) And (yy<2100) And 
     (1<=mm) And (mm<=12) And 
     (0<No) And (No<9999) Then
    Result:= Copy(IntToStr(yy+10000 ),2,4)+'年'
            +Copy(IntToStr(mm+100   ),2,2)+'月 单位'
            +Copy(IntToStr(No+100000),2,0)+'.dbf';
End;

Answer 7

if FileExists('文件名') then//判断文件是否存在
   showmessage('该文件不存在');

Answer 8

请问一下，那个Trim函数的功能是什么？