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:
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.
Comments
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;
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