菜鸟问题，请高手解决？？

Question

请一位高手帮我写一个函数，要求该函数能够将opendialog所打开的*.xml文件名存入到access数据库？谢谢！！
函数方法定义如下：
function getfilename(filename:string):string;
begin
.......
end;
这个中间该怎么写啊？请高手们指点啊！！！

Answer 1

if OpenDialog1.Execute then
     Temptring:=OpenDialog1.FileName;

Answer 2

设置好OpenDialog的Filter。1、如果是打开单个文件的，那用OpenDialog1.FileName就行了，是一个string
   Table1.FieldByName('FileName').AsString:=OpenDialog1.FileName;
2、如果是打开多个文件的，那你的数据库是什么结构呢？
   OpenDialog1.Files返回所有选中的文件，是个TStrings;
   for i:=0 to OpenDialog1.Files.Count-1 do
   begin
       Table1.FieldByName('FileName').AsString:=OpenDialog1.Files[i];
   end

Answer 3

高手你看这样写正确吗？
function TForm1.getfilename(filename:string):string;
begin
   result:=filename;
end;procedure TForm1.Button1Click(Sender: TObject);
var filename:string;
begin
dl.Execute;
if dl.FileName<>'' then
begin
  getfilename(dl.FileName);
  adoquery1.Edit;
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Text:='insert into xml (filename) values (:filename)';
  adoquery1.ExecSQL;
  adoquery1.Open;
  adoquery1.Post;
end;end;end.

Answer 4

有错误的代码。改一下procedure TForm1.Button1Click(Sender: TObject);
var 
  filename:string;
begin
  dl.Execute;
    if dl.FileName<>'' then
    begin
      filename:=getfilename(dl.FileName);
      adoquery1.Close;
      adoquery1.SQL.Clear;
      adoquery1.SQL.Text:='insert into xml (filename) values (:filename)';
      adoquery1.ParamByName('filename').value:=filename;
      adoquery1.ExecSQL;
end;

Answer 5

上面的这位高手，我的函数getfilename该怎么定义它的方法呢？

Answer 6

就是下面的这些代码能不能够一起放在函数getfilename里面执行啊？因为我是做的一个后台，没有界面啊！！
var 
  filename:string;
begin
  dl.Execute;
    if dl.FileName<>'' then
    begin
      filename:=getfilename(dl.FileName);
      adoquery1.Close;
      adoquery1.SQL.Clear;
      adoquery1.SQL.Text:='insert into xml (filename) values (:filename)';
      adoquery1.ParamByName('filename').value:=filename;
      adoquery1.ExecSQL;

Answer 7

谢谢啊我马上给你接贴啊
高手，我们能够交个朋友吗？
我的QQ为87891516
你能够告诉我你的QQ号码吗？

Answer 8

我没有别的意思，我是一个DELPHI的初学者，希望能够向你多多请教啊

Answer 9

为什么还弄一个function ???

Answer 10

请问一下楼上的那位gzmhero的高手还在吗？