[Fatal Error]Unit1.pas(40):File not found:'Childform.dcu' (50分)

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus;

type
TMainForm = class(TForm)
MainMenu1: TMainMenu;
file1: TMenuItem;
new1: TMenuItem;
open1: TMenuItem;
save1: TMenuItem;
close1: TMenuItem;
exit1: TMenuItem;
edit1: TMenuItem;
copy1: TMenuItem;
cut1: TMenuItem;
paste1: TMenuItem;
windows1: TMenuItem;
cascade1: TMenuItem;
tilehorizontal1: TMenuItem;
tilevertical1: TMenuItem;
arrangeicons1: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
procedure open1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation
uses Childform;


{$R *.DFM}
var
child:TMdiChild;

procedure TMainForm.open1Click(Sender: TObject);
var
Child:TMdiChild;
sFile:Sting;
begin
Dhild:=TMdichild.Creat(Application);
Child.Caption:=Child.name;
OpenDialog1.Title:='open';
OpenDialog1.Filter:='All Files(*.*)|*.*';
OpenDialog1.Execute();
if OpneDialog1.FileName<>'' then
begin
sFile:=OpenDialog1.Filename;
Child.Memo.Lines.LoadFromFile(sFile);
Child.Caption:=sFile;
end;
Child.Memo.Lines.LoadFromFile(sFile);
Child.Caption:=sFile;
end;

end.

通过利用windows提供的文件搜索功能查找childform*.*，把查找到的文件拷贝到编写
的应用程序目录下即可，若没有查找到则没有办法，只有自己在编写程序了

在uses Childform一句中的Childform文件不存在或虽存在但不在delphi的搜索路径中
解决办法是如果文件存在，就将它移至delphi可搜索到的目录中将它的目录加入delphi和
搜索目录，不存在就要再编写了。

接受答案了.