关于文件拷贝、DOS命令、TQuickRep控件(100分)

  • 主题发起人 主题发起人 薯条
  • 开始时间 开始时间

薯条

Unregistered / Unconfirmed
GUEST, unregistred user!
1、关于文件拷贝,运行下段程序总是无法通过显示如下[Error] MAIN.PAS(108): Incompatible types: 'String' and 'PChar',这是为什么,那位大哥帮我改一下,小弟不胜感谢!!!
procedure TMDIChild.Button1Click(Sender: TObject);
var
aa ,bb : string;
begin
aa:= ExtractFilePath(ParamStr(0))+'zbsj.DB';
bb:=((ExtractFilePath(ParamStr(0))+'DB_data/t_f.db' ));
CopyFile(aa,bb,false);
end;
end;
2、怎样在源程序中调用带参数或不带参数的DOS命令和应用程序?
3、关于TQuickRep控件的,怎样处理“打开、保存、打印”的代码使运行后应用程序能实现“打开文件、保存QPR和TXT文件”等。
 
1:
procedure TMDIChild.Button1Click(Sender: TObject);
var
aa ,bb : string;
begin
aa:= ExtractFilePath(ParamStr(0))+'zbsj.DB';
bb:=((ExtractFilePath(ParamStr(0))+'DB_data/t_f.db' ));
CopyFile(pchar(aa),pchar(bb),false);
end;
end;
2:
winexec('d:/myexe.exe /s',1);
 
3确实比较麻烦,你可以试试自己定义预览时的工具条,然后对报表进行操作.明天我试试.
再回答
 
多人接受答案了。
 
后退
顶部