『Delphi』回传数据 操作文件 相对路径

 回传数据：
name:=dbgrid1.Fields[3].AsString; 

操作文件：
OpenDialog1.Execute;
  Edit1.Text := Trim(OpenDialog1.FileName);

CopyFile(Pchar(Trim(Edit1.Text)),Pchar(Trim(Edit2.Text)+'/'+ExtractFileName(Trim(Edit1.Text))),False);
      ShowMessage('拷贝成功.');
      Edit1.Clear;
      Edit2.Clear;
    Except
      ShowMessage('系统出错.');
    End;

yourFileName   :=   ExtractFileName('c:/fql/fql.dat');

ExtractFileName     //取文件名  
  ExtractFileExt     //取扩展名  
  ExtractFilePath     //取路径

相对路径：
MyPath:=ExtractFilePath(ParamStr(0));
CopyFile(Pchar(Trim(Edit8.Text)),Pchar(MyPath+'/upfile/'+ExtractFileName(Trim(Edit8.Text))),False);
其中false表示覆盖！