QRDBText 및 QRLabel 은 잘 되는데.. QRRichText 및 QRBarcode 는 오류가 나오네요.
뭐가 문제인지.... 현제 폼 디자이너를 만들고 있습니다.
WriteComponent 로 저장을 하고 ReadComponent 로 컴포넌트를 화면에 뿌려 주는데 특정 컴포넌트에서 오류가 발생 합니다. 오류가 나는 지점이 QRRichText 또는 QRBarcode를 ReadComponent 로 읽어 들일때 발생 합니다.
소스 -----
StreamF := TFileStream.Create(RPT_File, fmOpenRead);
tntini := TIniFile.Create(copy(RPT_File,1, length(RPT_File)-3)+'.IRP');
try
while StreamF.Position < StreamF.Size do
begin
TempComponent := StreamF.ReadComponent(nil); <== 여기세서 QRRichText1 을 읽을때 오류가 납니다. 다른 컴포넌트는 오류가 안나는데....
if TempComponent is TQuickRep then
begin
RPT_Form.InsertComponent(TempComponent);
T_QuickRep := TQuickRep(TempComponent);
T_QuickRep.Parent := RPT_Form;
end;
if TempComponent is TQRBand then
begin
RPT_Form.InsertComponent(TempComponent);
T_QRBand := TQRBand(TempComponent);
T_QRBand.Parent := T_QuickRep;
end;
end;