对于问题1我只知道可以用两个for循环一句句的向C里面写,我想一定有别的方法的。问题2: a.loadfromfile(filename);它可以导入多大的文件???问题3:a.sort  能对多大的文件排序(最多多少条记录)??我现在需要对至少二三十万知记录排序,有点担心。问题4:a.find()这个函数怎么用?能给个例子吗?在向a 里面增加一条记录时,我想知道这条记录是否已经存在?但不至于用 for 循环来检测吧。问题5:关于savedialog的。当我用savedialog来获得一个保存文件的路径时,文件类型为:*.xls 我输入的文件名为:abc。有这么一条语句:eidt1.text := savedialog.filename.但我不能得到...\abc.xls 只能得到...\abc 也就是不能自动将文件的扩展名给添加进去。。

解决方案 »

  1.   

    5 可以加一句 SaveDialog1.Filter:='xls文件|xls';
      

  2.   

    to :liangqingzhi(老之) 
    可以加一句 SaveDialog1.Filter:='xls文件|xls';
    这句话我已加了的。to  Lucker() 
    . 只能写代码自己来检查.
    代码怎么写啊?关键是我怎样判断在保存对话框里,文件类型选择的是*.txt 还是 *.xls  ??1. 用 c.AddStrings. 这个好像只能是一行一行地增加吧。那么也要一个for 循环啊。
      

  3.   

    判断保存对话框的类型选择:procedure TForm1.Button1Click(Sender: TObject);
    begin
      SaveDialog1.Filter:='xls文件|xls|txt文件|txt|其它文件|*';
      if SaveDialog1.Execute then Edit1.Text:=SaveDialog1.FileName;
    end;
      

  4.   

    to liangqingzhi(老之) 
    问题解决了,但还有一点不明白:
    我加了下面两句之后才可以的。
    SaveDialog1.Filter:='xls文件(*.xls)|*xls|txt文件(*.txt)|*.txt|其它文件|*.*';
    SaveDialog1.DefaultExt := ' ';//或是任意东西都可以。但不能为空。否则它不会自动添加扩展名的。去掉这句话就不可以了。知道是什么原因吗?