这是工程文件内容:
============================
library Project3;uses
SysUtils,
Classes,
Unit5 in 'Unit5.pas' {Form1};{$R *.res}
exports DoTest;begin
end.
============================
library Project3;uses
SysUtils,
Classes,
Unit5 in 'Unit5.pas' {Form1};{$R *.res}
exports DoTest;begin
end.
Form1: TForm1;implementation//这里,注意
{$R *.res}procedure DoTest(S:String);
begin
如果找不到Form1.dfm的话,你只有重新创建一个窗体了.