--------------                         --------------
|종류| 음식명|                          |종류| 음식명|
--------------                         --------------
| 중식| 짜장면|                         | 중식| 짜장면|
--------------                                  --------
| 중식| 울면   |      ======>        |       | 울면   |
--------------                                  --------
| 중식| 짬뽕   |                         |       | 짬뽕   |
--------------                                  --------
| 중식| 우동   |                         |       | 우동   |
--------------                          --------------

이렇게 할려고 그러는데요

전에 아폴론님에 도움으로 조금 하기는 했는데 잘 안되더라구요

소스 올리겠습니다.

변수는 전역으로 선언되어 있습니다.

procedure TForm4.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);

  ls_new_entp := DM.query5.Fieldbyname('entp_nm').AsString;
  ls_new_shop := DM.query5.Fieldbyname('shop_ctg_nm').AsString;
  ls_new_sales := DM.query5.Fieldbyname('sales_ctg_nm').AsString;

  if ls_old_entp = ls_new_entp then
     QRDBText48.width := 0
  else
     ls_old_entp := DM.query5.fieldbyname('entp_nm').AsString;

  if ls_old_shop = ls_new_shop then
     QRDBText49.width := 0
  else
     ls_old_shop := DM.Query5.fieldbyname('shop_ctg_nm').AsString;

  if ls_old_sales = ls_new_sales then
     QRDBText50.width := 0
  else
     ls_old_sales := DM.Query5.fieldbyname('sales_ctg_nm').AsString;
end;

procedure TForm4.formcreate(sender : Tobject);
begin
  ls_old_entp := 'aaaaaa';
  ls_old_shop := 'aaaaaa';
  ls_old_sales := 'aaaa';

  ls_new_entp := '';
  ls_new_shop := '';
  ls_new_sales := '';

  QRShape78.width := 0;
  QRShape77.width := 0;
  QRShape76.width := 0;

end;

이렇게 하면요

음...선은 없어지는데 값은 그대로구요

다시한번 더 출력버튼을 클릭하면 선도 없어지고 값도 없어지네요

어떻게 해야 하나요

답변 부탁드립니다..