ERROR on compile Delphi Project

zplin

I discovered an error, you cannot create a "object shape" and overlap to a "object data", for example.

zplin

the error alone occurs when compiling the project in delphi7 :

I discovered an error, you cannot create a "object shape" and overlap to a "object data", for example. The tip for the programmers of this project to analyze this:

FR_Class.unit :

{

---

}
function frCreateObject(Typ: Byte; const ClassName: String): TfrView;
var
i: Integer;
begin
Result := nil;
case Typ of
gtMemo: Result := TfrMemoView.Create;
gtPicture: Result := TfrPictureView.Create;
gtBand: Result := TfrBandView.Create;
gtSubReport: Result := TfrSubReportView.Create;
gtLine: Result := TfrLineView.Create;
gtAddIn:
begin
for i := 0 to frAddInsCount - 1 do
if frAddIns.ClassRef.ClassName = ClassName then
begin
Result := TfrView(frAddIns.ClassRef.NewInstance);
Result.Create;
Result.Typ := gtAddIn;
break;
end;
//
//
// Delphi Stop Here !!!!
//
if Result = nil then
raise EClassNotFound.Create('???? ?­? ?©?¤???­ ???«? ?±?± ' + ClassName);
end;
end;
if Result <> nil then
begin
Result.ID := ObjID;
Inc(ObjID);
end;
end;

dwikris

hi, i'm new guy in here. but i'll try to my best..

1. add some breakpoint to that code, especialy at case block
2. since only addin that "search" the class reference. i suspect that iteration can not find the right class. so, adding a unit name that consist that add-in would be solved the problem.

in my fr-class.pas, i add all add-in unit even i dont need it.
extra memory, but saver to all kind of template.

regards,
Dwi