T_QRBand.Parent := tntini.ReadString('Parent', TempComponent.Name, ''); // 오류가 납니다. 제 생각에는 string을 wincontrol 로 바꿔 줘야 되는것 같은데 어떻게 하는지 모르겠습니다.


아래와 같이 저장을 하였는데 저장된 값을 불러 와서 어떻게 적용을 하여야 되는지.... 너무 많이 질문을 드리죠?

procedure TRPTEditF.dxButton3Click(Sender: TObject);
var
  i : integer;
  StreamF : TFileStream;
  tntini : TIniFile;
  T_QuickRep : TQuickRep;
begin
  if TRPSave.Execute then
  begin
    StreamF := TFileStream.Create(TRPSave.FileName, fmOpenWrite or fmCreate);
    tntini := TIniFile.Create(copy(TRPSave.FileName,1, length(TRPSave.FileName)-3)+'.IRP');
    try
      for i := RPTBlankF.ComponentCount-1 downto 0 do
      begin
        if RPTBlankF.Components[i] is TQuickRep then
        begin
          StreamF.WriteComponent(RPTBlankF.Components[i]);
        end;
      end;
      for i := RPTBlankF.ComponentCount-1 downto 0 do
        if RPTBlankF.Components[i] is TQRBand then
        begin
          StreamF.WriteComponent(RPTBlankF.Components[i]);
          tntini.WriteString('Parent', RPTBlankF.Components[i].Name, TQRBand(RPTBlankF.Components[i].GetParentComponent).Name);
        end;
      for i := RPTBlankF.ComponentCount-1 downto 0 do
      begin
        if RPTBlankF.Components[i] is TQRLabel then begin
          StreamF.WriteComponent(RPTBlankF.Components[i]);
          tntini.WriteString('Parent', RPTBlankF.Components[i].Name, TQRBand(RPTBlankF.Components[i].GetParentComponent).Name);
        end else if RPTBlankF.Components[i] is TQRDBText then begin
          StreamF.WriteComponent(RPTBlankF.Components[i]);
          tntini.WriteString('Parent', RPTBlankF.Components[i].Name, TQRBand(RPTBlankF.Components[i].GetParentComponent).Name);
        end else if RPTBlankF.Components[i] is TQRMemo then begin
          StreamF.WriteComponent(RPTBlankF.Components[i]);
          tntini.WriteString('Parent', RPTBlankF.Components[i].Name, TQRBand(RPTBlankF.Components[i].GetParentComponent).Name);
        end else if RPTBlankF.Components[i] is TQRShape then begin
          StreamF.WriteComponent(RPTBlankF.Components[i]);
          tntini.WriteString('Parent', RPTBlankF.Components[i].Name, TQRBand(RPTBlankF.Components[i].GetParentComponent).Name);
        end else if RPTBlankF.Components[i] is TQRExpr then begin
          StreamF.WriteComponent(RPTBlankF.Components[i]);
          tntini.WriteString('Parent', RPTBlankF.Components[i].Name, TQRBand(RPTBlankF.Components[i].GetParentComponent).Name);
        end else if RPTBlankF.Components[i] is TQRSubDetail then begin
          StreamF.WriteComponent(RPTBlankF.Components[i]);
          tntini.WriteString('Parent', RPTBlankF.Components[i].Name, TQRBand(RPTBlankF.Components[i].GetParentComponent).Name);
        end else if RPTBlankF.Components[i] is TQRStringsBand then begin
          StreamF.WriteComponent(RPTBlankF.Components[i]);
          tntini.WriteString('Parent', RPTBlankF.Components[i].Name, TQRBand(RPTBlankF.Components[i].GetParentComponent).Name);
        end else if RPTBlankF.Components[i] is TQRGroup then begin
          StreamF.WriteComponent(RPTBlankF.Components[i]);
          tntini.WriteString('Parent', RPTBlankF.Components[i].Name, TQRBand(RPTBlankF.Components[i].GetParentComponent).Name);
        end else if RPTBlankF.Components[i] is TQRSysData then begin
          StreamF.WriteComponent(RPTBlankF.Components[i]);
          tntini.WriteString('Parent', RPTBlankF.Components[i].Name, TQRBand(RPTBlankF.Components[i].GetParentComponent).Name);
        end else if RPTBlankF.Components[i] is TQRExprMemo then begin
          StreamF.WriteComponent(RPTBlankF.Components[i]);
          tntini.WriteString('Parent', RPTBlankF.Components[i].Name, TQRBand(RPTBlankF.Components[i].GetParentComponent).Name);
        end else if RPTBlankF.Components[i] is TQRRichText then begin
          StreamF.WriteComponent(RPTBlankF.Components[i]);
          tntini.WriteString('Parent', RPTBlankF.Components[i].Name, TQRBand(RPTBlankF.Components[i].GetParentComponent).Name);
        end else if RPTBlankF.Components[i] is TQRDBRichText then begin
          StreamF.WriteComponent(RPTBlankF.Components[i]);
          tntini.WriteString('Parent', RPTBlankF.Components[i].Name, TQRBand(RPTBlankF.Components[i].GetParentComponent).Name);
        end else if RPTBlankF.Components[i] is TQRImage then begin
          StreamF.WriteComponent(RPTBlankF.Components[i]);
          tntini.WriteString('Parent', RPTBlankF.Components[i].Name, TQRBand(RPTBlankF.Components[i].GetParentComponent).Name);
        end else if RPTBlankF.Components[i] is TQRDBImage then begin
          StreamF.WriteComponent(RPTBlankF.Components[i]);
          tntini.WriteString('Parent', RPTBlankF.Components[i].Name, TQRBand(RPTBlankF.Components[i].GetParentComponent).Name);
        end;
      end;
    finally
    tntini.Free;
    StreamF.Free;
    end;
  end;
end;