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表示覆盖！
责任编辑：cyth
